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Designed to satisfy requirements of support personnel 
responsible for maintenance of the IBM System/3 Disk 
Utility Programs, whether they are used with the IBM 
System/3 Disk System or the IBM System/3 Model 6. 

The manual describes the internal logic of these utility 
programs: 

• Disk Initialization 

• Alternate Track Assignment 

• Alternate Track Rebuild 

• File and Volume Label Display 

• File Delete 

• Disk Copy/Dump 

• library Maintenance 

This manual is intended for use in locating specific areas 
within a program and relating these areas to the corresponding 
program listings. 



Second Edition (March 1971) 

This is a major revision of, and obsoletes, SY2 1-0503-0. The revisions have been 
extensive throughout the manual. The manual is now designed to satisfy require- 
ments of support personnel responsible for maintenance of the IBM System/3 
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the IBM System/3 Model 6. 
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System. 

Requests for copies of IBM publications should be made to your IBM representa- 
tive or to the IBM branch office serving your locality. 
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© Copyright International Business Machines Corporation 1971 



Preface 



This Program Logic Manual is designed to satisfy require- 
ments of support personnel responsible for maintenance 
of the IBM System/3 Disk Utility programs used with the 
IBM System/3 Disk System or the IBM System/3 Model 6. 
The manual describes the internal logic of these utility 
programs: 

• Disk Initialization 

• Alternate Track Assignment 

• Alternate Track Rebuild 

• File and Volume Label Display 

• File Delete 

• Disk Copy/Dump 

• Library Maintenance 

This publication is intended for use in locating specific 
areas within a program and relating these areas to the 
corresponding program listings. 



RELATED PUBLICATIONS 

These publications are recommended for additional 
reference: 

Disk System 

• IBM System/3 Card and Disk System Components 
Reference Manual, GA21-9103. 

• IBM System/ 3 Disk Systems Data Managemen t and 
Input / Output Supervisor Logic Manual, SY2 1 -05 1 2 . 

• IBM System/ 3 Disk Systems System Control Program 
LogicManual, SY21-0502. 

• IBM System/ 3 Disk System Operation Control Langu- 
age and Disk Utilities Reference Manual, GC21-751Z 

Model 6 

• IBM System/ 3 Model 6 Componen rs Reference Manual, 
GA34-0001. 

• IBM System/3 Disk Systems Data Management and 
Input/Output Supervisor Logic Manual, SY2 1 -05 1 2. 

• IBM System/3 Disk Systems System Control Program 
Logic Manual, SY21-0502. 

• IBM System/3 Model 6 Operation Control Language 
and Disk Utility Programs Reference Manual, 
GC21-7516-1. 
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HOW THIS PUBLICATION IS ORGANIZED 



The manual is divided into seven parts - one part for each of the seven programs. 
The following sections are included, as required, in each part depending on the size and 
complexity of the program being described. 

1. Introduction describes the functions and the operational environment of the 
program. 

2. Method of Operation describes the functional and data flow of the program. 

3. Program Organization describes the function of each phase and provides 
flowcharts and a storage map. 

4. Data Area Formats describes the formats of areas within the program. 

The Introduction and Method of Operation are designed to give the reader an overview 
of the functions and flow of the program. The Program Organization and Data Area 
Formats are designed to give detailed functional descriptions of each phase and data area 
comprising a program. 



Appendix A contains a directory giving the entry point and synopsis of the phases in 
each program. Appendix B shows the flowcharting techniques used. 
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DISK INITIALIZATION 
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Section 1. Introduction 



The IBM System/3 Disk Initialization program performs 
three functions: 

• Primary initialization. 

• Secondary initialization. 

• Q ear. 

If the user requests primary disk initialization, the disk 
pack is initialized to the cylinder capacity of his system 
configuration. If the user requests secondary disk initial- 
ization, the initialized area of the disk pack is expanded to 
match his upgraded hardware capacity, Gear initializes a 
disk to hardware capacity without checking active fields. 

The only keywords necessary for clear are TYPE-CLEAR, 
and UNIT-xx. The PID keyword (for internal IBM use 
only) in the UIN statement is used to initialize packs to 
half or full capacity. The keywords necessary are TYPE- 
PRIMARY, UNIT-xx, and PID-capacity (capacity is either 
half or full). 

Note: PID-full is used only to override active file checking 
and force ERASE-YES. 

Both the clear parameter and PID keyword force ERASE- 
YES. Secondary initialization used with ERASE-YES is 
invalid. Neither the clear parameter nor the PID keyword 
cause active file checking. 

The Disk Initialization program performs the following 
operations: 

• Performs surface analysis on each track by writing and 
verifying test data patterns. 

• Formats the disk packs: 

1 . Writes and identification (ID) field on all sectors. 
An ID field consists of three bytes: one flag 
byte, one byte containing the cylinder address, 
and one byte containing the sector address. 

Note: Alternate tracks are initialized with a flag 
byte of XW. 



2. Reads an ID field on each track to ensure correct 
initialization. 

3. Writes the volume label. 

4. Formats the volume table of contents (VTOC) 
and the outboard recorder/statistical data 
recorder (OBR/SDR). 

5 . Writes an IPL halt in the IPL sector. 

• Assigns an alternate track to a defective primary track. 

• Saves and restores program protection and OBR/SDR 
sectors if the unit is the fixed disk on drive (Fl) and a 
valid volume label is present. 

t Indicates a disk pack is unusable if: 

1 . Cylinder 0, track is defective. 

2. More than six tracks are defective. 

3. All six alternate tracks are defective and a primary 
track error occurs. 

4. One or more sector ID fields on a track cannot be 
read. 



SYSTEM REQUIREMENTS 

The IBM System/3 Disk Initialization program operates 
using the following minimum system configuration: 

Disk System 

t IBM 5410 Processing Unit, Model A12 

• IBM 5203 Printer, Model Al 

• IBM 5424 Multi-Function Card Unit, Model A 

• IBM 5444 Disk Storage Drive, Model 2 
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Model 6 

• IBM 5406 Processing Unit, Model B2 (Includes the 
keyboard with eight command keys) 

• IBM 5213 Printer, Model 1 

• IBM 5444 Disk Storage Drive, Model 2 
The following optional features are supported: 

• IBM 5496 Data Recorder, Model 1 with System/3 
Model 6 On-line Feature (Used as the Sysin device) 

• IBM 2265 Display Station, Model 2 (Cathode Ray 
Tube; used as Syslog device with IBM 5406 Processing 
Unit, Models B3 and B4 only) 
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Section 2. Method of Operation 



Figure 1-1 shows the operational flow for the Disk 
Initialization program. 

When the user loads the Disk Initialization program, the 
Root phase receives control. The Root phase loads the 
Control Statement Analysis phase into storage and passes 
control to it. The Control Statement Analysis phase reads 
the control statements and checks them for validity. The 
phase carries this out by sending three tables of keyword 
information (ISSCAN, ISUNTB, and ISVLTB) to the 
Keyword Syntax Scan routine. This routine checks for 
valid control statement keywords and returns the informa- 
tion in the Scan Output Buffer (ISSCOT) to the Control 
Statement Analysis phase. The Control Statement 
Analysis phase then sends two tables of parameters, ISCTBK 
and ISVBG, to the Root phase (ISSYSM and ISCTLO, two 
tables of halt information, are also passed to the Halt/ 
Syslog transient. See note which follows.) 

The Root phase then passes control and the ICSTL table 
of parameters (ISCTBK and ISVBG) to the Mainline phase. 
The Mainline phase checks ICSTL to determine the types 
of initialization needed and if that initialization is valid. 
The Mainline phase then calls the Surface Analysis phase 
and passes an area of alternate track information (TBLE, 
and ALTIN) to it. ALTIN contains information about 
the status of alternate tracks; TBLE contains alternate 
track addresses. An I/O control blcok (IOB) is passed to 
the Surface Analysis phase to be used for writing and 



verifying the sector ID. The Surface Analysis phase tests 
the tracks for surface errors by writing and verifying the 
sector ID fields and a test data pattern. This phase per- 
forms its own error recovery procedure for surface errors. 
The write buffer address (IBFAD) is used for a special 
error recovery procedure. If enor recovery is not needed, 
the write buffer IOADDR is used. The phase passes a 
return code (IRCDE), updated alternate track information 
(ALTIN), and control to the Mainline phase. 

The Mainline phase assigns the alternate tracks and 
writes the volume label. The volume label for primary 
initialization is written in the VOLS output buffer. If 
secondary initialization is requested, the original volume 
label is saved and updated to new pack capacity in the 
IOSV buffer. The Mainline phase has two input/output 
control blocks (IOB and IOBV) which control the reading 
and writing for this program. After completion of pro- 
cessing, the Mainline phase passes a table of messages 
(IMSGT) to the Print phase. The Print phase logs the 
messages of actions taken. 

Note: The EOJ transient performs the end of job require- 
ments. The Mainline phase passes a table of halt messages 
(IERTAB) to the Halt/Syslog transient. The Halt/Syslog 
transient generates all halts due to errors during the pro- 
gram and prints all error messages. Halts are displayed on 
the Message Display Unit. 
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Figurc 1-1, Operational Diagram for the Disk Initialization Program 
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Section 3. Program Organization 



This section contains a functional description of each phase 
included in the IBM System/3 Disk Initialization program. 
Flowcharts are also provided where necessary. Figure 1-2 
shows a storage map of the program. 



















Supervisor 




ICSTLTaWe 
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Figure 1-2. Storage Map of the Disk Initialization Program 
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Root Phase ($INIT) 



Control Statement Analysis Phase ($INIT1) 



Entry Point: IROOT 



Chart: None 



Entry Point: IDSYN 
Chart: AA 



Functions: 

• Loads the Control Statement Analysis phase and the 
Mainline phase into main storage. 

• Maintains a table of constants (ICSTL) built by the 
Control Statement Analysis phase. 



Input: Table of constants (ISCTBK and ISVBG) from 
Control Statement Analysis phase ($INIT1) 



Output: Table of constants (ICSTL) to the Mainline 
phase (SINIT2) 



Exits: 

• Normal 

L Supervisor to load the phases 
2. Entry point of the phases called 

• Error - None 



Functions: 

• Reads control statements into an input buffer (ISIO) 
from the procedures library or from the current system 
input device. 

Note: If a control statement error occurs and the 
statement is read from the procedures library, a retry 
is not allowed. 

i Converts all numeric control statement operands from 
decimal to hexadecimal notation. 

• Passes three tables of keyword information parameters 
(ISSCAN, ISUNTB, and ISVLTB) to the Keyword 
Syntax Scan routine. The control statements are then 
checked for validity and proper sequence: 

1. The // UIN control statement is checked for 
proper UNIT, TYPE, ERASE, VERIFY, and 
PID parameters. 

Note: The following halts are associated with 
the parameter for PID keyword (for Customer 
Engineer use only): 



Disk System 
Halt Log 

5U 



Reason and Recovery 

Reason - Error in *UIN' 
statement. 



UI 5U PI 



UI 5U P2 



UI 5U P3 



Parameter for PID 
keyword is missing. 

Parameter for PID 
keyword is a sublist 
which is not allowed. 

Parameter for PID 
keyword is not either 
half or full. 



Recovery - Correct 
statement 
and re-enter. 
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Model 6 

Halt Log 

BCD 12 



Reason and Recovery 

Reason - Error in 'UIN' 
statement. 



Mainline Phase ($INIT2) 



Entry Pbint: IMAIN 



UI BCD 12 5PI Parameter for P1D 
keyword is missing. 

Ul BCD 12 5P2 Parameter for PID 
keyword is a sublist 
which is not allowed. 

UI BCD 12 5P3 Parameter for PID 

keyword is not either 
half or full. 

Recovery - Correct 
statement 
and re-enter. 

2. The // VOL control statement is checked for 
proper ID and PACK parameters 

Builds two tables of parameters (ISCTBK and ISVBG) 
from the information supplied in the control statements 
and passes it to the Root phase. 



Input: Control statements (// UIN, // VOL, // END) 



Output: 

• Two tables of parameters (ISCTBK and ISVBG) to the 
Root phase 

• Table of constants (ISCTLO) to the Halt/Syslog trans- 
ient to print control statements. 



Exits: 
m Normal 

1 . Root phase (SIN IT) after building keyword 
parameter tables 

2. Keyword Syntax Scan routine (SSRDS 1) to check 
for valid keywords. 

• Error - Halt/Syslog transient to print error messages 
(ISSYSM) 



Chart: AB 



Functions: 

• Obtains the parameters from the table ICSTL. 

• Reads the volume label. 

• Determines the validity of the requested initialization: 

1 . If a volume label was not found, only primary or 
clear initialization can occur and ERASE-YES is 
forced. ERASE-YES is forced if the pack has to 
be re-initialized during one run. 

2. The pack capacity is determined from the hard- 
ware sense bytes. 

3. If secondary initialization is requested, determines 
the first track to be initialized. 

• Initializes the alternate track information table (ALTIN) 
and saves this information and the volume label for 
secondary initialization. 

• Does a special space request allocation to check for 
active files. 

• Passes a parameter table in XRI (JOB) to the Surface 
Analysis phase and checks the return code (1RCDE) it 
receives from the phase, 

• Saves and restores the program protection sectors 
(cylinder 0, track 1, sectors 12, 13, and 14) and the 
OBR/SBR sectors (cylinder 0, track 0, sectors 3 
through 8) if the fixed disk on drive 1 (Fl) is to be 
initialized and the volume label has no errors. 

• Assigns alternate tracks: 

1 . The phase writes the ID fields on the assigned 
alternate tracks. 

2. If a primary track is assigned to an alternate track, 
the ID field of the primary track contains the 
address of the alternate track, and the alternate 
track contains the address of the defective 
primary track. 
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Writes the volume label for primary initialization and 
updates the volume label for secondary initialization. 

Formats VTOC, OBR/SDR, and IPL sectors. 



Surface Analysis Phase ($INSUR) 

Entry Point: SURF AN 



Input: 

• Table of constants (ICSTL) from the Root phase 

• Return code (IRCDE) from the Surface Analysis phase 

Output: 

9 Initialized Disk 

• Table of messages (ISMGT) to Print phase 

• IOB, ALTIN, and TBLE containing information to 
Surface Analysis phase. 

Exits: 

• Normal 

1 . EOJ transient to terminate job. 

2. Surface Analysis phase to pass track information 

3. Print phase to log message of actions taken 

• Error - Halt/Syslog transient to print error messages 



Chart: AC 

Functions: 

• Writes and verifies sector addresses using two test 
patterns (X*55' and X'OC) the number of times specified 
in the VERIFY parameter. 

• Provides a special error recovery procedure for surface 
errors by trying to write the data ten times. 

• Updates alternate track information table (ALTIN) in 
the Mainline phase. 

• Passes a return code (IRCDE) to the Mainline phase: 

1. XW - No error 

2. X*0r - Unusable pack (cylinder in error, more 
than six defective tracks, or defective track ID 
cannot be read) 

3. X'02' - Alternate track defective 

4. XW* - Hardware error 

5. XW - Alternate track assignment valid 



MO 



Input: 

• XR1 points to an JOB defined in the Mainline phas 

• XR2 points to write buffer IOADDR 

Output: 

• Return code IRCDE to the Mainline phase 

• Updated ALTIN information 

Exits: 

• Normal - ERCHK in the Mainline phase ($INIT2) 

• Error -None 



Print Phase <$INMSG) 
Entry Point: ALMSG 
Chart: AD 

fUncdons: 

• Logs the results of a successful alternate track assignment. 

• Prints addresses of primary and alternate tracks. 

• Logs results of initialization. 



Input: Table of messages (IMSGT) to be printed from the 
Mainline phase 



Output: Printed messages 

Exit: 

• Normal 

1. Mainline phase (SIN1T2) after messages are 
printed 

2. Halt/Syslog transient to print messages of actions 
taken 

• Error -None 
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Section 4. Data Area Formats 



This section describes the format and contents of the 
control blocks, tables, and data areas used by the IBM 
System/3 Disk Initialization program. See the storage map 
in Figure 1-2 for the relative location of these data areas. 



is located at the end of the Surface Analysis phase. A 
byte labeled SIOBFL is set to indicate that the phase will 
handle surface error recovery procedures. 

Byte positions and contents for the input/output blocks 
labeled IOB, IOBV, or SIOB are: 



CONTROL BLOCKS 

The Disk Initialization program requires three input/output 
control blocks: 

1. IOB 

2. IOBV 

3. SIOB 

The IOB, defined by the Mainline phase, is used to read 
cylinder 0, track 0, sector 2, and to write and verify the 
ID fields of each track. It is located before the entry 
point (IMAIN) of the Mainline phase. A byte labeled 
IOBFLG can be set to the following indications: 

t Bit - The program will handle its own error recovery 
procedures. 

• Bit 2 - No error logging on outboard recorder/statistical 
data recorder (OBR/SDR). 

• Bit 3 - The data area FCS will be used for comparisons 
during the disk IOS SCAN instructions. 

• Bit 4 — The program does not use data management. 

The IOB also contains the control information passed to 
the Surface Analysis phase by the Mainline phase. 

The IOBV, defined by the Mainline phase, is used to write 
the volume label. It is located at the end of the Mainline 
phase. 

The SIOB is used for writing data during surface error 
recovery procedures in the Surface Analysis phase. It 



Byte 


Contents 


0-1 


Chain pointer used and updated by IOS 
to queue requests 


2 


Completion code 


3 


Q byte indicating operation 


4 


R control byte 


5 


Cylinder address in hexadecimal 


6 


Sector address in hexadecimal 


7 


Number of sectors involved in operation 
(N-l) 


8-9 


Data area address 


10-11 


Sense bytes used by IOS 


12 


Error counter used by IOS 


13 


Flag byte 



14-15 
16-17 



X'80 1 = No error recovery 

X'40* = No verification 

X'20' = No error logging 

X*10* = Write ID operation 

XW^NoDTF 

X*04' = No load I/O for disk file date 

register 
X*02* = Equipment check 
X*01' = Alternate track in process 

Register 1 (XR1) save area 

ARR save area 



Data Area Formats 1-21 



TABLES 



ISCTBK Table 



ICSTL TaWe 

ICSTL is a 58-byte table of parameters of control state- 
ment information maintained by the Root phase 
(Figure 1-3). The Control Statement Analysis phase 
($INIT) builds two tables, ISCTBK and ISVBG, and passes 
them to the Root phase where they are maintained as 
ICSTL. ICSTL is located at the beginning of the Root 
phase. 



ISCTBK, a 7-byte table of parameters defined by the 
Control Statement Analysis phase, contains the requested 
parameters on the control statements (Figure 1-4). 
ISCTBK, along with ISVBG, is passed to the Root phase 
which maintains these parameters under the label ICSTL. 
ISCTBK is located at the beginning of the Control State- 
ment Analysis phase. 



ISVBG Table 



Byte 


Label 


Contents 





IBVER 


VERIFY option 


1 


ITYPE 


TYPE option 

1. P* Primary 

2. S- Secondary 

3. C= Clear 


2 


IERASE 


ERASE option 

1. Y = Yes 

2. N - No 


3 


IPID 


PI D option 

1. F- Full 

2. H = Half 


4 


IUN1 


Hardware address of first unit (Q code) 


5 


IUN2 


Hardware address of second unit (Q code) 


6 


IUN3 


Hardware address of third unit (Q code) 


7-12 


IVSER1 


Volume serial number of first unit 


13-22 


IOID1 


Owner ID of first unit 


23-28 


IVSER2 


Volume serial number of second unit 


29-38 


101 D2 


Owner ID of second unit 


39-44 


IVSER3 


Vorume serial number of third unit 


45-54 


I0ID3 


Owner ID of third unit 


55 


INSEC 


Number of sectors for error recovery 


56-57 


IBUFAD 


Address of error recovery buffer 



ISVBG, a 48-byte table of parameters, is built in the Con- 
trol Statement Analysis phase (Figure 1-5). This table, 
along with ISCTBK, is passed to the Root phase to be 
maintained under the label ICSTL. ISVBG is located 
after ISCTBK at the beginning of the Control Statement 
Analysis phase. 



Byte 


Label 


Contents 





ISVER 


VERIFY option 


1 


ISTYP 


TYPE option 

1. P = Primary 

2. S = Secondary 

3. C- Clear 


2 


ISERAS 


ERASE option 

1. Y»Yes 

2. IM-No 


3 


ISPID 


PI D option 

1. F-Full 

2. H-Half 


4 


1SUT1 


Hardware address of first unit 


5 


ISUT2 


Hardware address of second unit 





ISUT3 


Hardwaft address of third unit 



Figure 1-3. ICSTL Table 



Figure 1-4. ISCTBK Table 
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ISSCAN Table 



ISVLTB Table 



ISSCAN is an 8-byte table of parameters passed to the Key- 
word Syntax Scan routine by the Control Statement 
Analysis phase (Figure 1-6). ISSCAN is located at the end 
of the Control Statement Analysis phase. 



ISVLTB, a 10-byte table of keyword parameters, is passed 
to the Keyword Syntax Scan routine by the Control State- 
ment Analysis phase. It is located near the end of the 
Control Statement Analysis phase. ISVLTB contains the 
parameters for the // VOL control statement. If a // VOL 
statement is read, the address of this table is placed in the 
ISSCAN table (ISPMAD). The byte positions and contents 
are: 



ISUNTB Table 

ISUNTB, a 29-byte table of keyword parameters, is 
passed to the Keyword Syntax Scan routine by the 
Control Statement Analysis phase. It is located in the 
Control Statement Analysis phase. ISUNTB contains the 
parameters for the // UIN control statement. If a // UIN 
control statement is read, the address of ISUNTB 
(ISPMAD) is placed in the ISSCAN parameter table. The 
byte positions and contents are: 



Byte 


Contents 





3C14' 


1-4 


'PACK' 


5 


X2? 


6-7 


'ID* 


8-9 


XTFFF 



Byte 


Contents 





X*14' 


1-4 


'UNIT' 


5 


X*24' 


6-9 


TYPE' 


10 


X*36' 


11-15 


'ERASE' 


16 


X'46' 


17-22 


'VERIFY 1 


23 


X*53* 


24-26 


'FID' 


27-28 


X'FFFF 



Byte 


Labfl) 


Contents 


0-15 


ISVL1 


Volume serial number and owner 1 D of 
first unit 


16-31 


ISVL2 


Volume serial number and owner 1 D of 
second unit 


32-47 


ISVL3 


Volume serial number and owner ID of 
third unit 



Figure 1-5. ISVBG Table 



Byte 


Label 


Contents 


0-1 


ISSTAD 


Address of where to start scan 


2-3 


None 


Address of where to end scan 


4-5 


None 


Address of scan output area 


6-7 


ISPMAD 


Address of keyword parameter table 



Figure 1-6. ISSCAN Table 
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IERTAB Table 



IERTAB is a 7-byte table of halt information passed to the 
Halt/Syslog transient by the Mainline phase (Figure 1-7). It 
is located near the end of the Mainline phase. 



IMSGT Table 

The IMSGT table contains messages of actions taken which 
are to be printed. The table is passed from the Mainline 
phase to the Print phase. It is located near the end of the 
Mainline phase. 



ISSYSM Table 

ISSYSM, a 7-byte table for halt messages, is passed by the 
Control Statement Analysis phase to the Halt/Syslog 
transient (Figure 1-8). It is located near the end of the 
Control Statement Analysis phase. 



rSCTLO Table 

ISCTLO is a 5-byte table of constants passed by the Con- 
trol Statement Analysis phase to the Halt/Syslog transient 
to print control statements. It is located at the end of the 
Control Statement Analysis phase. The byte positions and 
contents are: 



Byte 
0-1 

2 
3-4 



Contents 

X'OOOO' - Indicates output only; log 
control statements 

XW - Indicates 96-byte length 

Address of I/O area (input buffer ISIO) 



Byte 


Ubd 


Contents 





IERTAB 


B'1 10101 10'- Indicates halt and system 
print 


1 


None 


CV — Indicates Disk Initialization program 


2-3 


IHSTX 


Disk System — Characters to be used for 
halt display lights 

Model 6 — Code to be converted for 
halt display lights 


4 


ISABT 


Operator options 
X'OT ■ Immediate cancel 
X'02' ■ Control cancel 
X'04' = Retry 
X'08- ^ Proceed 


5-6 


OS IBM 


C'tib' — Indicates submessage area 



Figure 1-7. IERTAB Table 



Byte 


Ubd 


Contents 





ISSYM 


B'1 1010110' - Indicates halt and system 
print 


1 


None 


CT — Indicates Disk Initialization program 


2-3 


ISHALT 


Disk System — Characters to be used for 
halt display lights 

Model 6 — Code to be converted for 
halt display lights 


4 


None 


Operator options 
X'OV = Immediate cancel 
X'02' - Control cancel 
X'04' = Retry 
X'08' = Proceed 


5-6 


ISSUB 


C'ttib' — Indicates submessage area 



Figure 1-8. ISSYSM Table 
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ALTIN Table 



ISSCOT Output Buffer 



This 12-byte table, defined by the Mainline phase, contains 
two bytes of information on each of the six alternate 
tracks. ALTIN is located after the FCS work area at the 
beginning of the Mainline phase. It is initialized to zeros 
and may be modified by the Surface Analysis phase. Each 
of the 2-byte areas within the table contains one of the 
following hexadecimal configurations: 

Contents Meaning 

X'OOXX' Alternate track is available for assignment 

X*FFXX* Alternate track is defective and may not 
be used 

X'NNNN' Address of the primary track to which the 
alternate track is assigned 



TBLE Table 

This 12-byte area, defined by the Mainline phase, is 
located at the beginning of the phase and contains the 
addresses of the alternate tracks. The byte positions and 
contents are: 



Contents 

X'OIOO* = Track number one (upper) 
X'0180' = Track number one (lower) 
X t 0200* = Track number two (upper) 
X'0280' = Track number two (lower) 
X'0300* = Track number three (upper) 
X 4 0380' ~ Track number three (lower) 



Byte 
0-1 

2-3 
4-5 
6-7 
8-9 
10-11 

BUFFERS 

ISIO Read Buffer 



ISIO, a 96-byte read buffer used by the Control Statement 
Analysis Phase, contains the control statement images. It 
is located at the end of the Control Statement Analysis 
phase. 



ISSCOT, a 96-byte scan output buffer, contains the para- 
meters found on the control statements. It is passed from 
the Keyword Syntax Scan routine to the Control Statement 
Analysis phase. It is located at the end of the Control State- 
ment Analysis phase. 



IOADDR Write Buffer 

IOADDR is a 256-byte write buffer used by the Mainline 
and Surface Analysis phases for writing, reading, and 
verifying data on disk. It is located at the end of the 
Mainline phase. 



IBFAD Write Buffer Address Area 

IBFAD, a 2-byte area, contains the address of a write 
buffer used during the error recovery procedure of the 
Surface Analysis phase. It is located in the Mainline phase. 



VOLS Write Buffer 

VOLS is a 256-byte write buffer used by the Mainline phase 
to write the volume label on disk. It is located at the end 
of the Mainline phase. The byte positions and contents of 
this buffer are: 



Byte 


Contents 


0-2 


VOL 


3-9 


Volume serial number 


10-81 


Initialized to zero 


82-91 


Owner ID 


92-100 


Device constants 


101-112 


Alternate track information (ALTIN table) 


113-214 


Initialized to zero 


215-238 


Suspected defective tracks; indicators are 
initialized to X'FF 


239-255 


Initialized to zero 
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WORK AREAS 



IRCDE Return Code 



FCS Work Area 

The FCS work area, located in the Mainline phase immed- 
iately following the control block IOB, is a 3 -byte area 
initialized to zeros. It is comprised of a flag byte, a 
cylinder address, and a sector address. Bit 3 of the 
IOBFLG byte in the IOB indicates that FCS is to be used 
during the IOS SCAN instruction. The IOB also contains 
a cylinder and sector address of a primary track on which 
a write or read operation is to occur. The FCS contains 
the same address as the IOB if the track is operative. If 
the track is defective FCS contains the address of the 
assigned alternate track. In this case the FCS flag byte 
contains a X*01* to indicate that the alternate track is an 
alternate track (X'02' indicates a defective primary track; 
X'03' indicates a defective alternate track). 



IRCDE, a 1-byte data area initialized to zero, contains a 
return code passed from the Surface Analysis phase to 
the Mainline phase after surface analysis has occurred. 
The possible codes are: 

Code Meaning 

XW No error 

X*01 ' Unusable pack (cylinder in error, more 

than six defective tracks, or defective 
track ID cannot be read) 

X'02' Alternate track defective 

XW Hardware error 

X'08' Alternate track assignment valid 



RIDFCS Work Area 

The RIDFCS work area, located in the Mainline phase 
following the FCS, is a 3-byte area initialized to zeros. 
During a read ID operation, IOS will place the address 
of the track that was actually read (either a primary track 
or an alternate track) in this data area. 



IOSV Save Area 

IOSV, a 256-byte save area in the Mainline phase, contains 
the original volume label if secondary initialization is 
requested. This area is located at the beginning of the 
Mainline phase. 

Note: This area overlays the Root phase. 
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PARTll 
ALTERNATE TRACK ASSIGNMENT 






Alternate Track Assignment 2-1 
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Section 1. Introduction 



The IBM System/3 Alternate Track Assignment program 
attempts to recover from read or write error conditions 
encountered on a track located on a previously initialized 
disk pack. There are three ways this program can be run: 

1 . Conditional assignment transfers data from a sus- 
pected defective track to an available alternate track. 
Surface analysis is then performed cm the original 
track. If the track is defective, the ID fields of the 
defective track and an alternate track are set to 
reflect an alternate track assignment. If the track is 
not defective, data is transferred back to the 
original track; the alternate track is available for 
further assignment. 

2. Unconditional assignment bypasses surface analysis 
and unconditionally assigns an alternate track to 
the suspected defective track. 

3 . Unconditional cancel of prior assignment a ttempts 
to return data located on an assigned alternate track 
back to the original track. The alternate track is 
available for further use. 

After an assignment or cancel of prior assignment has been 
executed, the program performs the following functions: 

• Updates the volume label (cylinder 0, track 0, sector 2). 

• Prints data from the defective sectors to allow the user 
to check the data for accuracy (assignment only). 

t Logs results of action taken. 



SYSTEM REQUIREMENTS 

The IBM System/3 Alternate Track Assignment program 
uses the following minimum system configuration: 

Disk System 

• IBM 5410 Processing Unit, Model Al 2 

• IBM 5203 Printer, Model Al 

• IBM 5424 Multi-Function Card Unit, Model A 

• IBM 5444 Disk Storage Drive, Model 2 
Model 6 

• IBM 5406 Processing Unit, Model B2 (Includes the 
keyboard with eight command keys) 

• IBM 5213 Printer, Model 1 

• IBM 5444 Disk Storage Drive, Model 2 
The following optional features are supported: 

• IBM 5496 Data Recorder, Model 1 with System/3 
Model 6 On-line Feature (Used as the Sysin device) 

• IBM 2265 Display Station, Model 2 (Cathode Ray Tube, 
used as Syslog device with IBM 5406 Processing Unit, 
Model B3 and B4 only) 



Introduction 2-3 



24 



Section 2. Method of Operation 



Figure 2-1 shows the operational flow of the Alternate Track 
Assignment program. 

When the user loads the Alternate Track Assignment pro- 
gram, the Root phase receives control. The Root phase 
then loads the Control Statement Analysis phase into main 
storage, which reads the control statements (ASIOAR) 
and checks their validity. The Control Statement Analysis 
phase passes control and parameter list ASSC to the Key- 
word Syntax Scan routine ($$RDS1) which scans the 
control statements for the keywords indicated in ASSC. 
Output from the Keyword Syntax Scan routine is located 
in the ASSCOT buffer. The Control Statement Analysis 
phase then builds a table of constants (ASCTBK) and 
returns control to the Root phase. The Root phase main- 
tains this table of constants under the label ABER. 

The Root phase loads the Mainline phase which performs 
one of the following functions: 

1 . Conditional assignment 

2. Unconditional assignment 

3. Unconditional cancel of prior assignment 



The Surface Analysis phase tests the specified tracks for 
read or write error conditions, and performs special error 
recovery procedures in case of surface errors. The SlOB 
input/ output block and the write buffer (pointed to by 
the address at ABFAD) are used in this procedure. Other- 
wise, the 10ADDR write buffer is used. After surface analy- 
sis, control is passed back to the Mainline phase along 
with a return code indicating the status of the track tested. 
If the track was defective, the alternate track is assigned 
and the ID field is set to reflect the assignment. 

The Mainline phase uses the IOADDR write buffer and 
the AIOB control block to write the ID fields on the 
alternate track. Two tables containing the status of the 
alternate tracks (ALTIN) and their addresses (ATBLE) are 
defined by the Mainline phase. If the track was not 
defective, the Data Transfer phase is called to return data 
to the primary track. The Mainline phase passes a table of 
messages (AMSGT) to the Print phase indicating the 
results of the assignment. If the data transferred was in 
error, the Data Transfer phase also passes a table (ASTAB) 
to the Sector Print phase consisting of the sectors and 
data in error so that the user can check the data. A 
conditional assignment is automatically performed after 
each unconditional request. 



UNCONDITIONAL ASSIGNMENT 



CONDITIONAL ASSIGNMENT 

If the user requests a conditional assignment, the Mainline 
phase obtains the addresses of the suspected defective 
tracks from the volume label, builds table ATPDL, and 
writes the ID field on an alternate track. It then loads 
$ALT03 to transfer data from the suspected defective 
track to an alternate track. Control information is passed 
to the phase in the AIOB control block. After the transfer, 
the Mainline phase regains control and loads the Surface 
Analysis phase to write the ID field on the suspected 
defective track. The AIOB input/output control block 
contains the control information required by the Surface 
Analysis phase (see Section 4. Data Area Formats for a 
description of the control block). 



If the user requests an unconditional assignment, the 
Mainline phase receives the addresses of the tracks to be 
processed from the table of constants contained in the 
Root phase (ABER) and writes the ID field on an alternate 
track. The Data Transfer phase is then loaded to transfer 
data from the requested track to the alternate track. 

After data transfer, the Mainline phase regains control and 
loads the Surface Analysis phase to write the ID field on 
the primary track. If data in error is transferred, the 
Sector Print phase receives a table from the Data Transfer 
phase to print the data so it may be checked for accuracy. 
Control is returned to the Mainline phase which passes 
control to the Print phase to print the results of the 
assignment. 
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UNCONDITIONAL CANCEL OF PRIOR ASSIGNMENT 

If the user requests an unconditional cancel of prior 
assignment, the addresses of the tracks to be cancelled are 
obtained from the table of constants maintained by the 
Root phase. The Surface Analysis phase is called to test 
the primary track. The Data Transfer phase is then called 
to attempt a data transfer to the primary track; it contains 
a special error recovery procedure and attempts the 
transfer eight times if not successful the first time. A 
return code in the ARDTC buffer, is passed to the Main- 
line phase indicating whether the attempt was successful 
or not. 

If the track is still defective, the user may: 



■ Force the assignment. 
• Retry the transfer. 

■ Terminate the run. 

■ Continue to the next request. 

■ Write the updated volume label after the request has 
been performed. 

Note: The EOJ transient performs end-of-job requirements. 
The Halt/Syslog transient performs all halts due to errors 
throughout the program. 
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Figure 2-1. Operational Diagram for the Alternate Track Assignment Program 
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Section 3. Program Organization 



This section contains a functional description of each 
phase included in the IBM System/3 Alternate Track 
Assignment program. Flowcharts are also provided where 
necessary. Figure 2-2 shows a storage map of the program- 
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Figure 2-2. Storage Map of the Alternate Track Assignment Program 
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Root Phase (SALT) 



Control Statement Analysis Phase ($ALT01) 



Entry Point: AROOT 



Entry Point: ASASYN 



Chart: None 



Chart: BA 



Functions: 

• Loads the Control Statement Analysis phase and the 
Mainline phase into main storage. 

• Maintains a table of constants (ABER) built by the 
Control Statement Analysis phase. 



Input: Table of constants (ASCTBK) from the Control 
Statement Analysis phase ($ALT01) 



Functions: 

• Reads in control statements from SYSIN or the job 
scheduler work area. 

• Checks control statements for validity and proper 
sequence. 

• Builds a table of constants (ASCTBK) with information 
obtained from the Keyword Syntax Scan routine. 



Output: Table of constants (ABER) to the Mainline 
phase 



Exits: 

• Normal 

1 , Supervisor to load the phases 

2. Entry point of phase called 

• Error - None 



Input: Control statements read in from the keyboard, 
card, disk, or procedure library 



Output: Table of constants (ASCTBK) to Root phase 

Exits: 

• Normal - Root phase 

• Error - Halt/Syslog transient 
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Mainline Phase ($ALT02) 



Entry Point: AMAIN 



Chart: BB 

Functions: 

• Reads the volume label of the disk pack to be processed. 

» Performs one of the following requests: 

1 , Conditional assignment: 

a. Removes any duplicate entries from the condi- 
tional request list (ATPDL) in the volume label. 

b. Passes information to the Data Transfer phase 
to transfer data from a primary track to an 
alternate track and checks the return code 
(ARDTC). 

c. Passes information (AATCDE) to the Surface 
Analysis phase to perform surface analysis on 
the primary track and checks the return code 
(ARCDE). 

d. Passes information to the Data Transfer phase 
to transfer data back to the primary track if 
the primary track was not defective. 

e. Assigns the alternate track to the defective 
track if the primary track was defective. 

f. Determines whether an assigned alternate 
track is defective. If it is, an attempt is made 
to assign another track. 

g. Updates alternate track information in the 
volume label. 

h. Passes a table of messages ( AMSGT) to the 
Print phase. 

2. Unconditional assignment: 

a. Passes information to the Data Transfer phase 
to transfer data from a suspected defective 
track to an alternate track and checks the 
return code (ARCDE). 

b. Assigns an alternate track to the suspected 
defective track. 



c. Determines whether an assigned alternate 
track is defective. If it is, an attempt is made 
to assign another alternate track. 

d. Updates the alternate track information in the 
volume label. 

e. Passes a table of messages (AMSGT) to the 
Print phase. 

Unconditional cancel of prior assignment: 

a. Determines if the request is valid. (There must 
have been a previous assignment if there is to 
be a cancel). 

b. Passes information to the Data Transfer 
phase to transfer data back to the primary 
track and checks the return code (ARCDE). 

c. Updates the alternate track information. 

d. Passes a table of messages (AMSGT) to the 
Print phase. If the track is still defective the 
user may (1) force the cancel of prior 
assignment, (2) retry the transfer, (3) ter- 
minate the run, (4) continue to next request. 



Input: 

• Table of constants (ABER) from the Root phase 

• Return code from the Surface Analysis phase 

• Return code from the Data Transfer phase 

Output: 

m Control information to the Data Transfer phase and 
the Surface Analysis phase 

• Table of messages (AMSGT) to the Print phase (ALMSG) 

• XR1 pointing to AIOB for Data Transfer phase and 
Surface Analysis phase 



Program Organization 2-11 



Exits: 
m Normal 

1. Surface Analysis phase 

2. Data Transfer phase 

3. Print phase 

4. EOJ transient 

• Error - Halt/Syslog transient 



Exits: 

• Normal 

1 . Mainline phase 

2. Sector Print phase 

• Error - Halt/Syslog transient 

Surface Analysis Phase ($ALSUR) 



Data Transfer Phase ($ALT03) 



Entry Point: ADATX 



Chart: BC 



Functions: 

• Transfers data by sector from a primary track to 
alternate track. This phase attempts to transfer data 
eight times if the first transfer is not successful and a 
hardware error has not occurred. 

• Returns data to the primary track. 

• Passes a table (ASTAB) to the Sector Print phase 
(SALSEP) to print sector in error. 



Input: XR1 points to input/output block AIOB in the 
Mainline phase 



Output: 

• Return code to Mainline phase 

• Message to Sector Print phase 



Entry Point: SURF AN 
Chart: BD 

Functions: 

• Writes and verifies sector addresses and test patterns 
(X'55' and XW) on specified tracks. 

• Provides a special error recovery procedure for surface 
errors; tries writing data ten times. 

• Sets the flag byte of a defective track to indicate that 
it is defective. 

• Performs surface analysis and indicates if the primary 
track is defective for conditional assignment and 
unconditional cancel of prior assignment, 

• Writes ID field on a defective primary track to indicate 
an assignment. 

• Passes a return code to the Mainline phase: 
X*10'- No errors 

X*ir- Unusable pack 
X*12' - Alternate track defective 
X 4 14* — Hardware error encountered 
X*18* - Valid alternate track assigned 
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Input: 



XR1 points to input/output block AIOB defined by 
the Mainline phase 

XR2 points to input/output buffer IOADDR 



Output: Return code to Mainline phase 

Exits: 

9 Normal - AERCHK in the Mainline phase 

• Error — None 



Input: Table of messages (AMSGT) from the calling phase 
Output: Printed messages 

Exits: 

• Normal — Mainline phase 

• Error — None 

Sector Print Phase ($ALSEP) 
Entry Point: ALSEP 



Print Phase ($ALMSG) 
Entry Point: ALMSG 
Chart: BE 



Functions: 

• Prints the results of a successful assignment and the 
addresses of the primary track and the assigned alter- 
nate track. 

• Prints the results of an unconditional assignment. 

• Prints the results of an unconditional cancel of prior 
assignment. 



Chart: BF 



Functions: Prints the address of the sector in error and 
the data on that sector if a data error occurred during an 
alternate track assignment. 



Input: Table (ASTAB) from the Data Transfer phase 
Output: Sector in error is printed 

Exits: 

• Normal — Data Transfer phase 

• Error — None 
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*•••• 
•002* 

* • 



♦♦•♦« 
•002* 

• ♦ 



***** 

• 001* 

* «2* 



**«*Bl********* 

IKDICATE 

AVAILABLE ALT 

TBK 



• *««C1> 
JlLSUB 



' BE/OI/Al 



SURFACE 
ARALTSI3 



*•••• 
•002» 
• Bl* 



IRUPL t 

**a*»B2********** 

* • 

♦ SET OP TO * 

* RE3T0BB ID OP • 

• DBF PBI * 



ohxt m 

BOCKET 



.* 
,» 
YES 



mm 

• * 

• (10? E CTL/SEC OP* 

• VOL LABEL * 



ASX 9 

***q3****«*«****« 



• •. 



OUT IK 
BOCKET 2 



•**• 

* * 

• • 
• ••♦ 



1804F 

*****C5 *•*****••• 

• • 
•SET BUCKET TO* 

• ILHEADT • 

• PBOCESSBD • 



• •*• 

• • 

>• CJ • 



• ••*• 

•o<n* 

• E1« 



AREQO 



POIIT TO 
OBCOBDITIOBAL 
8EQOEST TABLE 



PI 



• .DVCOIDXTXOML.*- 



ABEQ? 



?2 



*- BEQ0ES1 



G1 *. 

END OP 



***** 
•O01» 

* Hi* 

• • 



-• CO 

->•. PROCESS 



•«««*52********** 



• FIBD TBICR TO * 

* BB PB0CES5ED * 



AOB1 V 

•*a**H2 *•*•••**** 



•IBDICATE TBK TO* 
* BB ASSIGBBD • 



*. SUCCESSFUL 


,* 


*. BEAD .* 




*- •• 




*. .* 




• BO 




| **•• 




•001 * 


»■->• E2 


• 


• 


i 


***• 




fcUBZQO 

•****f 3**** •**••• 


• CABCEL PRIOR 


• 


• ASSIGBHBBT; 


• 


— >• 7IBD PRIIUBT 


• 


♦ TRACK 


* 


» 


* 



G3 *. 

.•LOCATE *. 
1 PROAST < 

D1T1 
'. TBACK .' 



' EXIT 



TO: M SWJ p 



•BOVB IK OFDATED* 
■>• ALT TRK IBPO *- 



A012F 

•****Q4< 



* PBICIABT TRACK 
->*FOUBD: ^ 



PBOCESS * 



ADAG 9 BE/01/A1 

•**«*jS ♦*•*••*••* 
*SALSUB_ • 

• MITE ID 0»""* 

• PBIHABT DATA * 

• TBACE • 



•**B5* ••••*•***•* 

• B8ITE TOL • 
> LABEL 

• * 

a**************** 



.• *. HO 

*- SUCCESSFOL -*--- 
*. BBITE .* 



*. .* 
* TBS 
I 



ASOFTE BOTE 

•***C5**«****** 

• * 

• EXIT * 



TO: «SPEJ 

EBD-OF-JOB 
TRABSIEBT 



• 0D1* 

• E2* 



FBIBT PHIS* 



***** 
•001* 

* pit* 

* • 



***** 
•002* 
•81* 
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► ENTEB * 

> * 



ADATZ 



*SiTB IHDICATOHS* 



••****♦♦*•*•••••• 

***• 

* * 

* CI *-> 

* • 
• *•• 

ID 

CI ♦. 
.•CANCEL *. 
.* PBIOB *. KO 
*. ASSIGNMENT .*- — 
*. .* 



• *•• 
• D1 •-> 



C2 •. 
.* IS *. 
* ASSIGBED *. HO 
TIK AN ALT .• — 

*. TBK .* 



> C3 •", 

DBF 
PBD1ABY 

TRUCK 
'. .* 
*. -• 
* Hi 



DEE ALT +. CTO 
TBK .• — 



• TBS 



*•*• 

• * 

• El • 

• • 
• ••• 



• INDICATE • 

• ASSIGEEB ALT * 

• TBK: SET ID II • 

• FCS * 



STRD2 .«. 

.Dl • _ 
•••• . •CASCEL «. 

• • .• pbior • . rzs 

• on • >«. ASSIGITRFHT .• 



• ••• 



AFLG t 

•INDICATB EBROK • 

•TRANSFERRING ON* 

■-->• CANCEL PRIOR • 

A * ASSIGNMENT • 



• ••* 






• * 






* El • -> 






• * 






*••* 






STROX 






• 


• 


BEAD DATA 




* 


• 



♦ * 

• 002* 

• B1* 

• •**• 



DATA 

CHECK 



•002* 
* 33* 



••••B5"******»* 

► * 

► RETURN * 



TO: JALT0 2 

BAISLINE 
PRASE 



3TRDO .». 

F1 *. 

.•CANCB1 *. 

.• pbior 
*. assighsbnt 



* NO 



->• A55IGB BIT 



. • RSTDBM 
*. TO P*I TBK 



* HI • -> 



• ••• 
STRDY 



• ■•• 

> 4 

> HI < 

> « 

• ••• 

■ *•* 
i < 

> H2 « 
■ i 

• •*• 



FH *. 

** *. • •*• 

. • tbacit *. res • * 

♦ . CHECK/ . • >• K2 • 

*. KOBECF . • • • 

•. .• • •■• 

*. . • 
• 1Q 



»*•• 
l < 

* 112 < 



Hi *. 
.* •. 

*. SUCCESSFUL 



•••H 3 ************ 



■>* WRI 



IB 'TO' 
CYLINDER 



— > WEITB DATA 

A • 



.• •- BO 

>*. SUCCBSSFDL . ■ — 
*. fEITE . ■ 



R5 



.• FOBCB *. NO 
•>•. TRA85FEB 



• 0D2* 

• •**■ 



• • 
•002* 

• CI* 

• •••«■ 



• 1 

I- 



I 

• •••* 
"002* 

• Bl" 



.*. 

J1 *. 

.•CMC EL *. 
.• P8T08 *. 1 
•- ASSIGNaENT .*■ 



• ••• 

• • 

• D4 • 

• * 
»*•• 



► E2 ' 

k < 

• ••• 



— >". HA8DBAX2 
*. ESSOR 



• ••• 
♦DOI* 

• K2 *-> 

• • 

• *•• 
ADSTSA 

***«*K2*******< 
• 

• SET CONTROL 
>• CANCEL 



J3 

BETRV 



*. .♦ * 

• WO 

* * 

>• D4 • 



_• LAST *, TE5 • 

*. SEC OF TBK1 .• >• 

•. -• A " 



****J5 aaa *"**** 



• ♦•• 

• * 

• D1 * 

• • 

• ••* 



»K3«**«< 

BETH BE 



.• LAST •- YES 

•- SEC OF TB* .* 

•• .* 



With 

USE 



TO: SALl._ 

-AiniNs 

PRJ " 



TO: ULT02 

B1IEL - 

pSiee 



HAI-LIEE 



* • 

->• CI * 
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***** 

• 001* 

• • 



•••*• 

•002* 
• B3* 



B1 •. 

.•CABCEL ♦. 
.• PBIOB «. TBS 
•. A5SIGIII1Brr .* 



BDD8 



B3 



***** 
♦001* 
* DS* 



CI •. 
-• •• 
.* HA7E *. V0 
• . RETBTED • • 

•. o»ce .♦ v 
*. .* ***** 

•. .• *0OT» 

♦ TZS ♦ H3* 

* • 



7 

***** 
•001* 
• K2« 

* • 



PIBST 

Tine 






•SET BETBT CODIT* 

■>* TO 8: SET »OF ♦ 

* SK TO BEAD • 



• C3 *->| 

* * r 



*****cs********* 



LIST 
BBTHI 



•PROCESSING 
DBF ALT 



. * RETOBB 
•. TO PRINABT 



•SET IOB TO BEAD* 
•DATA DIAGNOSTIC* 



• POT CYL BTTB 

* INTO TABLE 



RG1A 



BETUM 



r**S3************ 



BEAD 53CTOB 
IN ERROB 



>B52 7 BP/01/A1 

*«***£J1* *•**•**•* 

•SALSEP • 

•PRIST SECTOR II» 
• EBBOR * 



TO: 4ALT02 
BAXr 
PHAS 



BAIBLIBB 



Alt •. TKS 

EBBOBS .• . 



1DBB8S . ♦. 

S3 



• • 

* C3 * 

**** 



'. YES 



•. BBHOH F80JI .•■ 
•. JALSM .• 



****G <!*•*• ***** 

► * 

* BETBR* * 



TO: * ALTO 2 
AAX1LIMB 
PB.ASB 



*••*« 
• OOT* 
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SURPAH .». 




ATIJNA 




B1 *. 




***R2**««"«*«« 


. * *. 






.• UflTTE 


*. 


YES • 


•- ID ONLY 




* > HfllfF ID 


*. 


• 


A ♦ 


• . . * 




1 ,*,„.„ 


* NO 




.!.:*•*"•• 


| 




• * 




1 




• 32 • 








• * 




I 




• **• 




. *, 




. •, 


CI ». 




C2 •. 


-•cabcel •. 




. * • 


.• PRTOR 


*, 


YES .* WRITS •. 


•• AS5IGHI1ENT 




• , *, JD Q Ht i 




• 


1 *. .• 

1 *■ ■' 


*. . * 




• NO 

1 




**•• • rss 


suftji v 




I 




. *. 


•*.***d i • ••••«*«• 


• D2 


• _ 



*«•• 

* • 

* b3 * — - 

'•-' l 

li-ITKA 9 

*****H3*******« 

* SET 103 TO 

* VfclTfi ID OS 
* OHJGINAL DEF 

* T3K 



•**C3**********«* 



BEAD ID OF 
DEF TfiACX 



04 



* SET BIT TO • 
♦CONTROL RUaPACF* 
•ErIKOR RFC0VE8Y • 



• ••• 

* • 

* E1 *-> 

* • 
«♦•« 

VP.&lFlf 

#****g^*«******** 

* • 

* SET DATA • 

* PATTPHN TO * 

* X'SS" • 



**♦• 
> • 

■ * 

• **■ 

I 

•**P1*« »*****#*•* 



.* *. 

*. HAFDUARE .*- 


<0 




.* *. KES 

•- HARDWARE «« 

•. EaROii .* 


. • CORttECT *. 


YES 


1 




•» . * 




*. p * 


f 




•. . * 


*. . • 




• YES 


T 
»••♦ 


• NO 


• . .* 

* NO 








« 


♦ 


• •** 












• P3 


* 


• • 












* • 


♦ EJ •-> 




| 












• *«• 








■JDEFA 






Sbci 






*****K2 ********** 






*****£ 2********** 






* * 












* SET PCS: SET • 






* • 






• DEPECTIVB ALT ♦ 






•SET RFTDRH CODE* 






• TRK * 






• * 






* * 






• * 






f *♦*• 


• •*• 






* * 






• • 








«■->* B2 * 






• F.l •-> 








• * 






• * 








• ##* 






• *•« 












i*TUR) 
















• 












r«»*p^ ********* 












* • 












* RRTuax ♦ 














* * 







DS *. 
♦CAKCBL *. 

PEIOB 
iSSIGHBKST 

'■*. .-■' 

*. .* ♦ 



PEIOB ♦. TSS 
ASSIGHBKST .♦-- 



85 •. 
. * •• 

.* DEF ALT •. TBS 

*. TRK .* -. 

•. .* I 
♦. .• I 
•. .* ♦ 

« KO *•*» 
* « 



. *SUCCSSSFQL *. SO 
•. COHPLETION . *--- 



•002 


i 




* K2 


»- 


• I 


* 
• ••• 




I 


CONT 




. *. 




H1 


». 


.♦ 




.* 


IS 


TEST 


*. 
*. 


KATTEKN 

x' 00' 



• •■■ • 

•002* 

* fll* 

• • 



***** ||2 ***♦•*•**« 

* * 

♦ SET DATA • 
.-_>* PATtEdH TO * 

• X'OO' • 



.* RBSTOBE * 


. res 


*. ALT TBK TO 


> *— — ^ 


*. UHUSBD .« 


1 


*. .* 




*. .* 


i 


> HO 


*♦♦• 






• ♦ 






• F3» 






• • 






•*•* 


AIT 




,.* GS , *♦*.*«« 




* READ 10 OF 


• 


ALT T8K 




• 




• 



ALTER 



• IHDICATE DEF ♦ 

♦ ALT TRK *<■ 



HS *. 

.* «, 

no .* 

— *. SUCCESSFUL 
*. BEAD 
•- .* 



1 •*** 
I * ' 



.* 10RR •. YRS 

•. VEHIPrCATTOBS. * 

*. .* 1 
*• •* i 


***** 


♦. .• $ 

* * 


•002* 

* si* 

* * 




♦ Rl ♦ 

* • 


* 
1 




***♦ 




K 1 


t 

*. ♦* 


wmma i 



.« poacE *. ■ • 

' T9ACK •. YE5 *SET OFP BIT FOB* 
ASSIGN.1KNT .* >* EdPC'JNTftOL * 



, • coa^Ect •. no 

ID .•—— . 

♦. .♦ 1 

*. •• 1 

*. -• ♦ 

* res ••♦• 

i *«♦• * * 

!-->• T3 ** * 
+ * ♦•** 
• *•* 



L ->* F1 • 
# * 
• •** 



***• 

i 4 
1 0.1 * 
I < 
• •** 
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■002« 

• * 



.* SUSPECTED 
DEF *LT 
♦. TPK 



*t**«C^**«**#**+* 

* SET nETRlf • 

* COJKTEH * 

* INITIALIZE • 

* BET** DATA ♦ 

* BUFFER * 



*•*•*[) -|********** 

* PhTTKStf TO BE * 

* PFOPOGATBD IS * 
•PLACED IK DAT* * 

* BUFPEB • 

* • 
****♦***•♦******• 



*****gt********** 

* PBOPOfJATE * 

* PATTEHH • 

• DK8EHEHT ♦ 

♦ BDPFJIB ADDRESS • 



HATPiiD 

HRITR ID US 
♦ OEF TRK TO 
— > INDICATE 

* DEFECTIVE < 



R7UBN 

V 

*«* *C2 ********* 

* * 

» RETURN * 



TO: 5AT.T02 
MAINLINE 
PHASE 



Pi ♦. 
.•LAST •- 
. * SECTCB TO *. MO 
BE .*— 

•,PflOC«SSED.» 



***♦ 
SSDATA 



• WRITE DATA 6 
?ERIPlf 



soccesspoL .•- 

1 . - • 



•0O1* 

♦ ft 2* 

* * 



. • 108E *. 

». SECTORS TO . 

*. PROCESS .• 



■>• G1 ♦ 

* * 

*«** 



•CECSEREVT RETBY* 
■>• COUNTER • 



K2 



HOKP *. tifi 
ENTRIES .♦'-■ 

. * 
.* 


V 
***** 


*. , * 
* YES 
| *♦*♦ 


• 00 \* 

• HI* 
* « 


1 * * 


* 
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Ill********* 

I 

BHTEB • 



81 •. 

,♦ PRINT ♦. 
KESSAGE 

raoa oseb 

TABLE 



PHHSC 

«**«*B2****««*«* 

» GET MESSAGE 
— >«?80n DSEB TABLE 



PS7 SOTE 
«««««B-)«««««**«< 

• * KEtlTRT * 

♦ ♦ JfULT/ • 
— >• * SYS103) • 

• * puriTT • 

* * MESSAGE • 



■>• BETnBB A66+3 ♦ 



TOrCALLBB 



PSEC V 

**«**C1********** 

* OBTAIM • 

♦ ALTER MITE TBACK* 
•AHD PSI1IT TRACK" 

• FBOH OSBB ♦ 



DDSECO 

*****Q1 ********** 

• * 

• CONVERT • 
•CTLIBDES B0HBE8* 

• TO DECIMAL • 

• * 



*****g1 ********** 
♦PBIHT ALTEfiHATE* 

• TRACK * 

• IS5IGWMEBT • 

• MESSAGE * 



• • (HALT/ 

• • STSLOG) 

• • PBIIIT 

• • MESSAGE 



SEE IBfl SYSTBK/M DISK 
SYSTEMS SYSTEM COBTROL 
PROGRAN LOGIC MANUAL, 
SYJM-05O2 



****Gt********* 
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•SAVF AKr* OBTAIN" 

* pointed ?boh < 

• CALLFU < 



DDSS80 

• COHVRbT 

• CYLIflDSJ? 5 

• .SECTOR TO 

• DECIMAL 



ST.* IBB SYSTEM/? DISK 
SYSTEMS SYSTEM CONTROL 
P80G8AH LOGIC MANUAL, 
SY21-0502 



*D2' 



IfES 



8 i :> 

HOTR 

* HBVTH* 

* [HALT/ 

* PBIHT 

* hessage 



PI *. 

.* ASK *. 
* THZ8E *. 1ZS 

UHPHTNTABLE -• 

•-CKARACT- .• 
•. E3S -• 



»CONVEbT ZONE TO* 
> PRINT * 



PftCHA -MOTR 

NENTBY » 

(HALT/ • 

3YSLOG) * 

PRINT • 

MESSAGE * 



•to 



: G1 :->| 



Gl 


* „ 




.•IS LAST*. 




.• PA8T OF *. 


NO 


*. SECTOR 


• , 


*. PHTNT2D .* 


i 


♦ . . * 


*. .• 


• TfSS 


»♦** 






• 






• El 






• 






#♦*♦ 


J 


1 




* 


• 


• 3ETIIHH ARB+1 


• 


• 


• 


TO:CA) 


-LKfl 





V VOTE 

NENTBY ♦ • 

(HALT/ • * 

SYSLOG] ♦ • 

PRIST * » 

1E5SAGE • • 



■>* Gl * 
« * 
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Section 4. Data Area Formats 



This section describes the format and contents of various 
control blocks, tables, and other data areas used by the 
IBM System/3 Alternate Track Assignment program. See 
the storage map in Figure 2-2 for the relative location of 
these data areas. 



Byte positions and contents for the input/output blocks 
labeled AIOB and SIOB are: 



CONTROL BLOCKS 

The Alternate Track Assignment program requires two 
input/output control blocks: 

1. AIOB 

2. SIOB 

The AIOB, defined by the Mainline phase, is used to read 
cylinder 0, track 0, sector 2 and perform surface analysis. 
It is passed to the Surface Analysis phase and Data Transfer 
phase which use the control information. A byte labeled 
IOBFLG can be set to the following indications: 

• Bit - The program will handle its own error recovery 
procedures. 

• Bit 2 — No error logging. 

• Bit 3 - Data area FCS will be used for comparisons 
during the disk IOS SCAN instruction and that FSC 
will contain the ID to write for a WRITE ID instruction. 

• Bit 4 - The program does not use data management. 

The SIOB, defined by the Surface Analysis phase, is used 
to write data during surface error recovery procedures. 



Byte 


Contents 


0-1 


Chain pointer used and updated by IOS to 
queue requests 


2 


Completion code 


3 


Q byte indicating operation 


4 


R control byte 


5 


Cylinder address in hexadecimal 


6 


Sector address in hexadecimal 


7 


Number of sectors involved in operation 
(N-l) 


8-9 


Data area address 


10-11 


Sense bytes used by IOS 


12 


Error counter used by IOS 


13 


Flag byte 



14-15 

16-17 



X'80* = No error recovery 

X'40' = No verification 

X'20' = No error logging 

X'10' = Write ID operation 

X'08' = NoDTF 

X*04' = No load I/O for disk file date 

register 
X'02' = Equipment check 
X'Or = Alternate track in process 

Register 1 (XR1) save area 

ARR save area 
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TABLES 



ASCTAB Table 



ASCTBK Table 

ASCTBK, an 84-byte table of constants, is passed by the 
Control Statement Analysis phase to the Root phase. The 
Root phase maintains the table under the label ABER. 
The table is comprised of 21 -bytes of information for 
each // ALT statement. (There is a maximum of four 
// ALT statements in the input stream.) The 21 -byte 
sections of the table are labeled ASV1 , ASV2, ASV3, 
and ASV. ASV is also used as a temporary hold area 
before moving the constants into the other sections of 
the table. Each section contains such information as the 
number of requested verifications, the type of assignment, 
the unit and volume serial numbers of the packs to be 
processed, and the track numbers requiring unconditional 
processing. 



ASCTAB is a lObyte table used by the Root phase to 
load the Control Statement Analysis phase into main 
storage. The byte positions and contents are: 



Byte 


Contents 





CO' - Object library 


1-6 


C'SALTOr - Program name to call 


7 


X'OO' 


8-9 


Address of where to put the object 
program (ALTEND) 



ABER Table 

ABER, an 84-byte table located in the Root phase and 
passed to the Mainline phase, maintains the parameters 
initialized by the Control Statement Analysis phase under 
the label ASCTBK. 



ASSC Table 

ASSC is an 8-byte table of parameters passed to the Key- 
word Syntax Scan routine by the Control Statement 
Analysis phase. The byte positions and contents are: 



Byte 
<M 

2-3 
4-5 
6-7 



Contents 

Address of where to start scan 

Address of where to end scan 

Address of scan output area (ASSCOT) 

Address of keyword parameter table 
(ASLTA) for the // ALT statement 



AMTAB TaHe 

AMTAB is a 10-byte table used by the Root phase to 
load the Mainline phase into main storage. The byte 
positions and contents are: 



Byte 


Contents 





CO* -Object library 


1-6 


C'$ ALT02' - Program name to call 


7 


XW 


8-9 


Address of where to put the object 
program (ALTEND) 
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ASLTA Table 



ASOTLY Table 



ASLTA is a 35-byte table containing the keyword para- 
meters of the // ALT card defined in the Control State- 
ment Analysis phase and used by the Keyword Syntax 
Scan routine. The byte positions and contents are: 



ASOTLY is a halt table used by the Control Statement 
Analysis phase to print control statements that are in 
error. The byte positions and contents are: 



Byte 


Contents 





X?16' 


1-6 


•VERIFY* 


7 


X*24' 


8-11 


'PACK' 


12 


X'34' 


13-16 


'UNIT* 


17 


X'46' 


18-23 


'ASSIGN 1 


24 


X'58' 


25-32 


'UN ASSIGN* 


33-34 


X'FFFF 


ASSMG Table 





ASSMG is a table of halt messages to be logged on the 
Halt/Syslog transient (Figure 2-3). 



Byte 


Label 


Contents 





ASSMG 


B'1 1 01 01 1 0' - I ndtcates haft and 
system print 


1 


None 


C'A' — Indicates Alternate Track 
Assignment program 


2-3 


ASHMSG 


Disk System — Characters to be used 
for halt display lights 

Model 6 — Code to be converted for 
halt display lights 


4 


None 


Operator options 
X'01 ' = Immediate cancel 
X'02' = Control cancel 
X'04 J = Retry 
X'08' = Proceed 


5-6 


ASUBMG 


C'tilA' — Indicates submessage area 



Byte 


Contents 


0-1 


X'0000' - Indicates output only; log 
control statement 


2 


X'60* - Indicates 96-byte length 


3-4 


Address of I/O area (ASIOAR) 


TIN Table 





Figure 2-3. ASSMG Table 



This 1 2-by te table contains two bytes of information 
concerning each of the six alternate tracks. It is 
initialized to zeros by the Mainline phase and may be mod- 
ified by the Surface Analysis phase. Each of the 2-byte 
areas within the table contains one of the foil owing 
hexadecimal configurations: 

Contents Meaning 

X'OOXX' Alternate track is available for assignment 

X'FFXX' Alternate track is defective and may not be 
used 

X'NNNN' Address of the defective original track to 
which the alternate track is assigned 



ATBLE Table 

This 1 2-byte table, used by the Mainline phase, contains 
the addresses of the alternate tracks. The byte positions 
and contents are: 

Byte Contents 

0-1 X'0100' = Track number one (upper) 

2-3 X'0180' = Track number one (lower) 

4-5 X*0200* = Track number two (upper) 

6-7 X'0280' = Track number two (lower) 

8-9 X 4 0300' = Track number three (upper) 

10-1 1 X*0380' = Track number three (lower) 
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ATPDL Table 

This 24-byte area is a conditional assignment request list. 
It contains a 2-byte entry for each request. X'NNNN* is 
the cylinder and sector of the suspected bad track. 
X*FFFF' indicates no conditional assignment has been 
requested. 



AMSGT Table 

AMSGT is a table of messages sent to the Print phase 
(ALMSG) by the Mainline phase ($AST02). 



ASTAB Table 

The ASTAB table is a 6-byte table used by the Data 
Transfer phase to pass the location of a defective sector 
to the Sector Print phase. 



BUFFERS 



ABFAD Data Buffer Address Area 

ABFAD is a 2-byte area which contains the address of a 
data buffer (I/O work area) to be used during the error 
recovery procedure of the Surface Analysis phase. 



IOADDR Buffer 

IOADDR is a 25 6-byte data buffer used by the Mainline 
phase, the Surface Analysis phase, and the Data Transfer 
phase to write and verify data on disk. 



ASSCOT Buffer 

ASSCOT is a 96-byte output area for the Keyword Syntax 
Scan routine. 



ASIOAR Buffer 

ASIOAR is a 96-byte input buffer used by the Control 
Statement Analysis phase to read the control statement 
images. 



CODES 

AATCDE Track Activity Code 

AATCDE is a 1-byte area containing a track activity 
code. The code is passed from the Mainline phase to the 
Surface Analysis phase. The code contains one of the 
following hexadecimal configurations: 

Contents Meaning 

X*01' Suspected defective alternate track in 

process 

X'02* Processing primary track that was assigned 

to the alternate track 

XW Primary track all right 

X*08' Processing suspected alternate track 

X* 1 0' Alternate track defective 

X'40* Primary track still defective 
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ARCDE Return Code 



WORK AREAS 



ARCDE, a 1-byte data area initialized to X*10\ contains 
a return code passed between the Surface Analysis phase 
and the Mainline phase. The possible codes are: 



Code 


Meaning 


5C10' 


No errors 


xnr 


Unusable pack 


nr 


Alternate track defective 


X*14' 


Hardware error encountered 


X'18' 


Valid alternate track assigned 



ARDTC Return Code 



FCS Work Area 

The FCS work area, located in the Mainline phase 
immediately following the control block IOB, is a 
3-byte area initialized to zeros. It is comprised of a flag 
byte, a cylinder address, and a sector address. Bit 3 of 
the IOBFLG byte in the IOB indicates that FCS is to be 
used during the IOS SCAN instruction. The IOB also 
contains the cylinder and sector address of the primary 
track on which a write or read operation is to occur. The 
FCS contains the address of the assigned alternate track. 
In this case the FCS flag byte contains a X'01 * to indicate 
that the assigned track is an alternate track (X'02' 
indicates a defective primary track; X*03' indicates a 
defective alternate track). 



ARDTC, a 1-byte area initialized to zero, contains a 
return code passed between the Data Transfer phase and 
the Mainline phase. The return code indicates whether 
an attempt to transfer data to the primary track was 
successful or not. The possible codes are: 



Code 


Meaning 


XW 


Force unassign 


X'40' 


Defective alternate track 


X'10' 


Error in transferring data to primary 
track 


XW 


Bad read ID 


X'02' 


Error in transferring data to alternate 
track 



RIDFCS Work Area 

The RIDFCS work area, located in the Mainline phase 
following the FCS work area, is a 3-byte area initialized 
to zeros. During a read ID operation, IOS will place 
the address of the track that was actually read (either a 
primary track or an alternate track) in this data area. 



PWK1 Work Area 

PWTC1 is a 96-byte work area used by the Sector Print 
phase to convert unprintable characters to printable 
characters. 



x'or 



Return to primary track 
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Section 1. Introduction 



The IBM System/3 Alternate Track Rebuild program 
corrects data in error which was transferred from a defec- 
tive track to an alternate track by the IBM System/3 
Alternate Track Assignment program. 

The Alternate Track Rebuild program obtains the location 
of the incorrect data from the // REBUILD control state- 
ment. If no alternate track was assigned to the suspected 
defective track, no data may be entered and a halt occurs. 
If an alternate track was assigned, the program replaces the 
incorrect data with hexadecimal data provided by the 
user on data statements following the control statement. 

A // PATCH control statement may be used in the same 
manner as the // REBUILD control statement; however, 
no check is made for an alternate track assignment. The 
// PATCH statement has the same format and parameters 
as the // REBUILD statement. 



SYSTEM REQUIREMENTS 

The IBM System/3 Alternate Track Rebuild program 
uses the following minunum system configuration: 

Disk System 

• IBM 5410 Processing Unit, Model A12 

• IBM 5203 Printer, Model A 1 

• IBM 5424 Multi-Function Card Unit, Model A 

• IBM 5444 Disk Storage Drive, Model 2 
Model 6 

• IBM 5406 Processing Unit, Model B2 (Includes the 
keyboard with eight command keys) 

• IBM 5213 Printer, Model 1 

• IBM 5444 Disk Storage Drive, Model 2 
The following optional features are supported: 

• IBM 5496 Data Recorder, Model 1 with System/3 
Model 6 On-line Feature (Used as the Sysin device) 

• IBM 2265 Display Station, Model 2 (Cathode Ray Tube; 
used as Syslog device with IBM 5406 Processing Unit, 
Model B3 and B4 only) 
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Section 2. Program Organization 



This section contains a functional description of each phase 
included in the IBM System/3 Alternate Track Rebuild 
program. Figure 3-1 shows a storage map of the program. 



Mainline Phase <$BU I LD) 



Entry Point: ROPEN 



Chart: CA 



Output: 

• Corrected sector of disk 

• Printout of control statements 

Exits: 

• Normal - EOJ transient 

• Error - Halt/Syslog transient 



Functions: 

• Initializes constants and builds an input/output 
control block (RIOB) to read the specified sector of 
disk and write the corrections on the sector. 

• Reads control statements and determines if they are 

in sequence. If they are not in sequence, a halt occurs. 

• Determines whether a statement is a control statement 
or a data statement. 

1 . Control statement - The data is converted from 
decimal to hexadecimal representation by the 
Hex Conversion routine within the Mainline phase. 
The parameters (RTAB) and a table of work 

area addresses (RADDS) are passed to the Key- 
word Syntax Scan routine. The Mainline phase 
then analyzes the table that is returned by the 
routine. A halt occurs if the parameters are 
invalid. 

2. Data statement — The statement is scanned for 
hexadecimal numbers. The Hex Conversion 
routine ensures that the correct hexadecimal data 
is written on the specified sector. 



Supervisor 



RCARD Input Buffer 

Mainline Phase ($BUILD) 

RTAB Parameter Table 

RADDS Address Table 

RIOB Control Block 

RA Conversion Table 

RSYOB Output Buffer 

RBUFFO Disk Input/Output Area 



Keyword Syntax Scan Routine 
($$RDS1) 



Unused 



Figure 3-1. Storage Map for the Alternate Tracx Rebuild Program 



Input: 

• // REBUILD or // PATCH control statement 

• Data statement 

• // END control statement 
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Section 3. Data Area Formats 



This section describes the format and contents of the 
control blocks, tables and data area used by the IBM 
System/3 Alternate Track Rebuild program. See the 
storage map in Figure 3-1 for the relative location of these 
data areas. 



CONTROL BLOCKS 

RI06 Control Block 

RIOB is an input/output control block used to read the 
specified sector on the control statement and to write 
the corrected data on the sector. RIOB is located near 
the end of the Mainline phase. The byte positions and 
contents are: 

Byte Contents 

0-1 Chain pointer used by IOS to queue requests 

2 Completion code 

3-4 Q and R bytes 

5 Cylinder address in hexadecimal 



Byte 


Contents 


6 


Sector address in hexadecimal 


1 


Number of sectors involved in operation 


8-9 


Data area address 


10-11 


Sense bytes 


12 


Error byte 


13 


Flag byte 



14*17 



X'80* = No error recovery 

XW = No verification 

X'20' = No error logging 

XUO' = Write ID operation 

X*08'=NoDTF 

X'04' = No load I/O for disk file data register 

X t 02 1 = Equipment check 

X'OT = Alternate track in process 



IOS work area 
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TABLES 



RADDS Address Table 



RA Conversion Table 

RA is a 4-byte table pointed to by XR2 at entrance to the 
Convert Decimal to Hexadecimal routine. It contains a 
2-by te address of the decimal representation to be con- 
verted and a 2-byte hexadecimal output address. 



RTAB Parameter Table 

RTAB, a 30-byte parameter table, contains the valid 
parameters which are passed from the Keyword Syntax 
Scan routine. RTAB is located near the end of the Main- 
line phase. The byte positions and contents are: 



RADDS, an 8-byte table of addresses passed to the Key- 
word Syntax Scan routine, contains the addresses of the 
valid parameter table, output area, and the area to scan. It 
is located near the end of the Mainline phase. The byte 
positions and contents are: 



Byte 
0-1 

2-3 
4-5 
6-7 



Contents 

Address of where to start scan 
Address of where to end scan 
Address of scan work area 
Address of keyword parameter table 



Byte 


Contents 





X'14' 


1-4 


TACK' 


5 


X 4 24' 


6-9 


'UNIT 


10 


X35* 


11-15 


TRACK' 


16 


X*46' 


17-22 


'LENGTH* 


23 


X*54' 


24-27 


TOST 


28-29 


X*FFFF 



BUFFERS AND WORK AREAS 



RCARD Input Buffer 

RCARD is a 96-byte area used as the statement input 
buffer and conversion work area. It is located at the 
beginning of the Mainline phase. 



RBUFFO Disk Input/Output Area 

RBUFFO is a 256-byte disk input/output buffer. It is 
located at the end of the Mainline phase. 



RSYOB Output Buffer 

RSYOB is a 96-byte output buffer used by the Keyword 
Syntax Scan routine. It is located near the end of the 
Mainline phase. 
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Section 1. Introduction 



The IBM System/3 File and Volume Label Display program 
prints the contents of: 

• The entire volume table of contents (VTOQ which con- 
tains information on all data files on the disk. 

• Certain volume label information such as the pack ID, 
owner ID, number of available alternate tracks, track 
numbers that have alternates assigned to them, device 
capacity, beginning and ending tracks of the libraries, 
and available space on the pack. 

• Specified file labels in the VTOC containing informa- 
tion about the specified files. 



SYSTEM REQUIREMENTS 

The IBM System/3 File and Volume Display program uses 
the following minimum system configuration: 

Disk System 

• IBM5410ProcessingUnit,ModelA12 

• IBM 5203 Printer, Model A 1 

• IBM 5424 Multi-Function Card Unit, Model A 

• IBM 5444 Disk Storage Drive, Model 2 
Model 6 

• IBM 5406 Processing Unit, Model B2 
(Includes the keyboard with eight command keys) 

• IBM 5213 Printer, Model 1 

• IBM 5444 Disk Storage Drive, Model 2 
The following optional features aie supported: 

• IBM 5496 Data Recorder, Model 1 with System/3 
Model 6 On-line Feature (Used as the Sysin device) 

• IBM 2265 Display Station, Model 2 (Cathode Ray Tube; 
used as Syslog device with IBM 5406 Processing Unit, 
Models B3 and B4 only) 
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Section 2. Method of Operation 



The general flow of the File and Volume Label Display 
program is shown in Figure 4-1 . 

The Root and Syntax Scan phase ($LABEL) reads the 
control statements into main storage (FSBUF). The control 
statements are read by SYSIN if they are on cards or by the 
job scheduler if they are in the procedure library. SLABEL 
loads the Keyword Syntax Scan routine ($$RDS1) and 
passes the parameter list FSSCAN to it. The control state- 
ments are checked for validity and the parameter list 
FSSCOT is passed back to SLABEL which checks for 
proper sequence. 

$LABEL builds a table of constants (FRCTBK) which is 
used by the Mainline phase (SLABL1). $LABL1 is then 
loaded into storage. The volume label is read using the 
input/output area FIOA and the pack ID is stored in the 
table of constants. At this point, the flow of logic is 
dependent upon the LABEL operand specified on the 
DISPLAY statement. 



If the control statement indicates that the VTOC is to 
be displayed, $LABL1 prints the volume label infor- 
mation from FDBUF. It prints label headings, reads 
the VTOC index using the input/output area FIOA, 
and prints the file labels found via the index and the 
scratch chain. The scratch chain pointed to by the 
VTOC index, contains files defined with a scratch 
attribute. It then calls the EOJ transient. 



• If the control statement indicates that a file label is 
to be displayed, SLABL1 prints the label headings, 
reads the VTOC index, and searches for the specified 
filenames. If the filenames are found, the file labels are 
read into the buffer FIOA2 and printed from FDBUF. 
The EOJ transient is then called. If the specified 
filenames are not found, a halt occurs. 



Note: All control statements and halt messages are 
logged by the Halt/Syslog transient. 
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Figure 4-1. Operational Diagram for the File and Volume Label Display Program 
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Section 3. Program Organization 



This section contains a functional description and flow- 
chart of each phase included in the IBM System/3 File and 
Volume Label Display program. Figure 4-2 shows a 
storage map of the program. 















Supervisor 




FRCTBKTaWe 






FRMNTB Table ' 

Root and Syntax 
Scan Phase 1$ LABEL) 

FSDTB Table 

FSSCAN Table 

FSSCOT Scan Output Area 

FSSYSM Table 

FSCTLO Table 

FSBUF Buffer 

FSFLG Table 

FSJWTB Table 

FSSCTB Table 




" "" " 






Mainline Phase ($LABL1) 

FVPARM Table 
FDBUF Print Buffer 
FIOA Read Buffer 
FDOTL Table 
FDHSP Table 
FDLIST Table 




Keyword Syntax Scan 
Routine <$$R DSD 


Unused 






■ — - ^ 


Unused 













Figure 4-2. Storage Map of the File and Volume Label Display Program 
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Root and Syntax Scan Phase ($LABEL) 



Mainline Phase ($LABL1) 



Entry Point: FILSTN 



Chart: DA 



Entry Point: DISPLY 



Functions: 

• Reads control statements. If an error occurs, the 
Halt/Syslog transient logs the control statement along 
with the proper error message if a logging device is on. 
A retry is allowed only if the control statements were 
read from SYSIN. 

• Checks the validity and proper sequence of the control 
statements. 

• Rints all control statements if a logging device is on. 

• Builds and passes a table of constants (FRCTBK) to 
the Mainline phase (SLABL1). 

• Loads and passes control to the Mainline phase (SLABL1). 



Chart: DB 



Functions: 

• Reads in volume label to obtain pack ID. 

• Converts and displays file information for all files and, 
if the control statement was LABEL-VTOC, volume 
label information in readable format, 

• Converts and displays file information for all requested 
files in readable format if the control statement was 
not LABEL-VTOC. If a file label is specified and more 
than one file contains the same name, all files with 
that name are printed. 



Input: Control statements 

Output: 

• Table of constants (FRCTBK) to the Mainline phase 

• Printed control statements 



Input: Table of constants (FRCTBK) from Root and 
Syntax Scan phase 



Output: Printed file information 



Exits: 

• Normal - Mainline phase ($LABL1) 

• Error — Halt/Syslog transient 



Exits: 

• Normal — EOJ transient 

• Error - Halt/Syslog transient 
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Section 4. Data Area Formats 



This section describes the format and contents of the 
control blocks, tables, and data areas used by the IBM 
System/3 File and Volume Label Display program. 
Figure 4-2 shows a storage map with the relative position 
of tables and buffers within each phase. 



FSSCAN Table 

FSSCAN is an 8-byte table of addresses passed by the 
Root and Syntax Scan phase to the Keyword Syntax 
Scan routine (Figure 4-3). 



FSFLG Table 



TABLES 



FRCTBK Table 

FRCTBK is a 1 80-byte table initialized to blanks. It is 
built by the Root and Syntax Scan phase for the Mainline 
phase and contains the file labels to be displayed. It can 
contain a maximum of 20 file labels. It is located in 
storage at the beginning of the Root and Syntax Scan 
phase. The Mainline phase is loaded at the end of the 
FRCTBK table. 



FSDTB Table 

FSDTB is a 13-byte keyword parameter table for the 
DISPLAY control statement in the Root and Syntax Scan 
phase. The byte positions and contents are: 



Byte 


Contents 





X*14' 


14 


'UNIT* 


5 


X*25' 


6-10 


'LABEL' 


11-12 


XTFFF 



FSFLG is a 7-byte parameter table passed by the Root and 
Syntax Scan phase to SYSIN if the control statements are 
not read from the procedure library. The byte positions 
and contents are: 



Byte 




1-2 

34 
5-6 



Contents 
Flag byte 

X'60' = Hardware error 
X'40* = Good completion 
XW = Single buffer 
Address of input buffer 
Address of input buffer 
Address of work area 



Byte 


Label 


Contents 


0-1 


FSSTAD 


Address of where to start scan 


2-3 


None 


Address of where to end scan (FSCEND) 


4-5 


None 


Address of scan output area (FSSCOT) 


6-7 


FSAPTB 


Address of keyword parameter table 
(FSDTBI 



Figure 4-3. FSSCAN Table 
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FSJWTB Table 

FSJWTB, a 7-byte parameter table, is passed by the Root 
and Syntax Scan phase to the job scheduler work area if 
the control statements are located on disk (Figure 4-4). 



FSCTLO Table 

FSCTLO is a 5-byte table passed to the Halt/Syslog 
transient from the Root and Syntax Scan phase for 
logging the control statements (Figure 4-5). 



FSSYSM Table 

FSSYSM is a 7-byte table passed to the Halt/Syslog 
transient from the Root and Syntax Scan phase for 
halts and error messages (Figure 4-6). 



Byte 


Label 


Contents 


0-1 


FSFB 


X'4860' 


2 


FSCMC 


XW 


34 


None 


Address of Input buffer (FSBUF) 


5-e 


None 


Not used 



Figure 4-4. FSJWTB Table 



Byte 


Label 


Contents 


0-1 


FSCTLO 


X'0000' - Indicates output only; log 
control statement 


2 


None 


X'60' - Indicates 96-byte length 


3-4 


None 


Address of I/O area (FSBUF) 



Figure 4-5. FSCTLO Table 



FRMNTB Table 

FRMNTB, a 10-byte table in the Root and Syntax Scan 
phase ($ LABEL), contains the constant #LABL1 and 
the address of where to load the Mainline phase. The 
byte positions and contents are: 



Byte 


Contents 





X'OO' 


1-6 


CSLABLl* 


7 


XW 


8-9 


Address of where to load the Mainline 




phase (FRMLD) 



Byte 


Label 


Contents 





FSSYSM 


B'l 10101 10 r - Indicates haJt and 
system print 


1 


None 


C'F' — Indicates File Delete program 


2-3 


FSHALT 


Disk System — Characters to be used 
for haft display Fights 

Model 6 - Code to be converted for 
halt display lights 


4 


None 


Operator options 
X'QV = Immediate cancel 
X'02' = Control cancel 
X J 04' = Retry 
X'08' = Proceed 


5-6 


FSSUB 


C'btt' — Indicates submessage area 



Figure 4-6. FSSYSM Table 
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FSSCTB Table 



FDHSP Table 



FSSCTB, a 10-byte table in the Root and Syntax Scan 
phase ($LABEL), contains the constant 0$$RDS1 and 
the address where to load the Keyword Syntax Scan 
routine. The byte positions and contents are: 



Byte 


Contents 


0-6 


eo$$Ri>sr 


1 


xw 



8-9 



FVPARM Table 



Address of where to load the Keyword 
Syntax Scan routine (FSENT) 



FVPARM, a 17-byte parameter table, contains control 
information for the VTOC Read/Write routine. It is 
passed from the Mainline phase to the VTOC Read/Write 
routine in the supervisor. The byte positions and contents 
are: 



Contents 

X'02' 

Unit 

Return code 

Address of I/O area 

Address of work area 

Sector and displacement for format 1 

Label for format 1 



Byte 



1 

2 

34 

5-6 

7-8 

9-16 

FDOTL Table 



FDOTL is a 5-byte table passed to the Halt/Syslog 
transient from the Mainline phase. Bytes 0-2 contain 
X'000008' and bytes 34 have the address of the output 
buffer (FDBUF). 



FDHSP is a 7-byte table passed to the Halt/Syslog 
transient from the Mainline phase for halts and error 
messages (Figure 4-7). 



Byte 


Label 


Contents 





FDHSP 


B'11010110' -Indicates halt and 

system print 


1 


None 


C'F' — Indicates File Delete program 


2-3 


FDHLT 


Disk System - Characters to be used 
for halt display lights 

Model 6 - Code to be converted for 
halt display I ights 


4 


None 


Operator options 
X'OV = Immediate cancel 
X'02' ~ Control cancel 
X'04' = Retry 
X'08' - Proceed 


5-6 


FDSUB 


CNF' — Indicates submessage area 



Figure 4-7. FDHSP Table 



FDLISTTaWe 



FDLIST, a 7-byte table of parameters passed from the 
Mainline phase to SYSLIST, contains control information 
for printing (Figure 4-8). 



Byte 


Label 


Contents 





FDOP 


Print and skfp space 


1 


FDSKBP 


Skip before printing 


2*3 


None 


Space before and skip after printing 


4 


FDSPAP 


Space 1 after printing 


5G 


None 


Address of FDBUF print buffer 



Figure 4-8. FDUST Table 



Data Area Formats 4-15 



BUFFERS 



FIOA Read Buffer 



FSBUF Input Buffer 

FSBUF, a 96-byte input buffer, contains the control 
statement images in the Root and Syntax Scan phase. 



FDBUF Print Buffer 



FIOA is a 512-byte area used by the Mainline phase for 
two functions: 

1 . As a 256-byte read buffer for the volume label. 

2. As a 512-byte read buffer for the VTOC index. 

FIOA2 Read Buffer 

FIOA2 is a 64-byte read buffer (the last 64 bytes of FIOA) 
used by the Mainline phase to read the file labels. 



FDBUF, a 96-byte print buffer, contains images from the 
Mainline phase to be printed by SYSLIST. 



FSSCOT Scan Output Area 

FSSCOT is a 128-byte area containing the operands of the 
valid keywords. It is passed from the Keyword Syntax 
Scan routine ($$RDS1) to the Root and Syntax Scan 
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Section 1. Introduction 



The IBM System/3 File Delete program allows the user to 
delete files no longer used or needed which are listed in 
the volume table of contents (VTOC). The File Delete 
program deletes: 

• Specified file(s) listed in the VTOC. 

• All tiles listed in the VTOC. 

If a SCRATCH statement is specified, the program writes 
the file labels on the scratch chain. The scratch chain, 
pointed to by the VTOC index, contains files defined as 
scratch files (files which may be overlaid by other files). If 
the REMOVE statement is specified, the file labels are re- 
moved from the VTOC. 



SYSTEM REQUIREMENTS 

The IBM System/3 File Delete program uses the following 
minimum system configuration: 

Disk System 

• IBM 541 Processing Unit, Model Al 2 

• IBM 5203 Printer, Model Al 

• IBM 5424 Multi-Function Card Unit, Model A 

• IBM 5444 Disk Storage Drive, Model 2 
Model 6 

• IBM 5406 Processing Unit, Model B2 (Includes the key- 
board with eight command keys) 

• IBM 5213 Printer, Model 1 

• IBM 5444 Disk Storage Drive, Model 2 
The following optional features are supported: 

• IBM 5496 Data Recorder, Model 1 with System/3 Model 
6 On-line Feature (Used as the Sysin device) 

• IBM 2265 Display Station, Model 2 (Cathode Ray Tube) 
(Used with the IBM 5406 Processing Unit, Models B3 and 
B4 only) (Used as the Syslog device) 
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Section 2. Method of Operation 



Figure 5-1 shows an operational diagram of the File Delete 
program. 

When the user loads the File Delete program, the Root 
phase receives control. It loads the Control Statement 
Analysis phase which reads in the control statements 
using the input buffer FSBUF. The control statements are 
checked for validity by calling the Keyword Syntax 
Scan routine ($$RDS1). A table of keyword parameters 
(FSCTBK) is built by the Control Statement Analysis 
phase from the output (FSSCOT) of $$RDS1. FSCTBK 
is passed to the Root phase and maintained under the 
label FRCTBK. The Root phase again receives control 
and passes FRCTBK to the Mainline phase. The Mainline 
phase calls the VTOC Read/Write routine to read the 
volume label, VTOC index, and file labels. It gives an S 
retain type to all P or T retain types if the request was 
LABELVTOC. It gives an S retain type to specified files 



if the request is only for specified file labels. The flow of 
logic then depends upon which control statement was read 
by the Control Statement Analysis phase. 

If a SCRATCH statement were read, the Job Scheduler 
Work Area Put routine writes the file labels with their new 
retain type in the scheduler work area. When the Control 
Statement Analysis phase reads a valid END statement, it 
calls the EOJ transient which writes the file labels onto the 
scratch chain. 

If a REMOVE statement containing the parameter DATA- 
YES was read, data for the files is removed. The Job 
Scheduler Work Area Put routine then writes the file labels 
and attributes set to remove the labels in the scheduler work 
area. When the Control Statement Analysis phase reads a 
valid END statement, it calls the EOJ transient which re- 
moves the file labels from the VTOC. 
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Figure 5-1. Operational Diagram for the File Delete Program 
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Section 3. Program Organization 



The following section contains a function description of 
the phases comprising the IBM System/3 File Delete 
program. Flowcharts are provided where necessary. 
Figure 5-2 shows a storage map of the program. 



Supervisor 



FRCTBK Table 

Root Phase 1$DELET) 

FRMNTB Table 



Control Statement 
Analysis Phase ($DELT1) 



FSCTBK Table 
FSSTB Table 
FSSCAN Table 
FSSCOT Output Buffer 
FSBUF Input Buffer 
FSSYSM Table 
FSCTLO Table 
FSHTB Table 
FSFLG Table 
FSWRK Work Area 
FSJWTB Table 
FSSCTB Table 



Keyword Syntax Scan 
Phase <$$RDS1) 



Unused 



Mainline Phase {$DELT2) 



FVIO I/O Buffer 
FFIO I/O Buffer 
F MOT L Table 
FMHSP Table 
FSHTB Table 
FPR NT Table 
[PARMA 
PARMB 



VTOC Read/Write 
Routine ($$SSVT) 



Job Scheduler Work 

Area Put Routines ($$SSPT) 



Unused 



Loaded into the transient 
area when needed 



Figure 5-2. Storage Map of the File Delete Program 
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Root Phase <$DELET) 



Control Statement Analysis Phase ($DELT1) 



Entry Point: FLBRS 



Entry Point: FILSYN 



Chart: None 



Chart: EA 



Functions: 

• Provides a save area for FRCTBK. FRCTBK is a table 
of keyword parameters passed between phases. 

t Loads and passes control to the Control Statement 
Analysis phase ($DELET) and to the Mainline phase 
(SDELT2). 



Input: Table of keyword parameters (FSCTBK) from 
Control Statement Analysts phase ($DELT1). 



Functions: 

9 Reads in control statements. 

• Checks the validity of the control statements. 

• Logs the control statements if a logging device is on. 

• Builds a table of keyword parameters (FSCTBK) and 

passes it to the Root phase. 

Input: Control statements 



Output : Table of keyword parameters (FRCTBK) to 
the Mainline phase 



Exits: 

• Normal 

1. Supervisor to load phases 

2. Entry point of phases called 

• Error - None 



Output: Table of keyword parameters (FSCTBK) to the 
Root phase 



Exits: 

• Normal 

1 , Root phase after table of keyword parameters 
(FSCTBK) is built 

2. EOJ transient 

• Error - Halt/Syslog transient 
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Mainline Phase ($DELT2) 
Entry Point: FDEL 
Chart: EB 

Functions: 

• If the control statement reads LABEL- VTOC: 

1 . All the format Is (Fls) on the VTOC index with a 
P or T retain type are read in. 

2. Data is removed for all specified files, if a RE- 
MOVE control statement with DATA-YES is read. 

3 . The Fls with a P or T retain type are given an S 
retain type. 

4. The Fls are written out in the scheduler work 
area. 

• If the control statement does not read LABEL- VTOC: 

1 . The specified F Is on the VTOC index are read in. 

2. Data is removed for all specified files, if a RE- 
MOVE control statement with DATA-YES is read. 



3. The Fls are given an S retain type. 

4. The Fls are written out in the scheduler work 
area. 

Note: If a pack has more than one file with the same 
label, a DATE option can be specified to delete one 
of the files. If no DATE option is specified, all the 
files with that label are deleted. 



Input: 

• Table of keyword parameters from the Root phase 

• Volume label, VTOC index, and Fls from disk 

Output: Fls in the scheduler work area 

Exits: 

• Normal — Root phase 

• Error — Hal t/Syslog transient 
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Section 4. Data Area Formats 



This section describes the format and contents of the con- 
trol blocks, tables, and data areas used by the IBM System/3 
File and Delete program. Figure 5-2 shows a storage map 
with the relative position of tables and buffers within each 



FSSCAN Table 

FSSCAN is a 8-byte table of addresses passed by the Con- 
trol Statement Analysis phase to the Keyword Syntax 
Scan routine (Figure 54). 



TABLES 



FRCTBK (FSCTBK) Table 

FSCTBK is a 264-byte keyword parameter table filled by 
the Control Statement Analysis phase. It is moved to the 
Root phase where it is maintained as FRCTBK and used 
by the Mainline phase (Figure 5-3). 



FSSTB Table 

FSSTB, a 27-byte table, contains the parameters of the 
SCRATCH statement. It is passed by the Control State- 
ment Analysis phase to the Keyword Syntax Scan routine. 
The byte positions and contents are: 



Byte 


Contents 





XU4' 


1-4 


TACK' 


5 


X 4 24' 


6-9 


'UNIT 


10 


X*35' 


11-15 


TABLE' 


16 


X'44' 


17-20 


'DATE' 


21 


X*54' 


22-25 


'DATA' 


26 


X'FF 



Byte 


La be) 


Contents 





FRUNfT 


Unit 


1 


FRVTOC 


VTOC: 

1. Y = Yes 

2. N = No 


2-7 


FRPAK 


Pack ID 


8-13 


FRDATE 


Date 


14-261 


FRLABL 


File labels 


262 


X'FF' 


End of labcfs 


263 


FLBCT 


Function byte for Job Scheduler Work 
Area Put routine 



Figure 5-3. FRCTBK (FSCTBK) Table 



Byte 


Label 


Contents 


0-1 


FSSTAD 


Address of where to start scan 


2-3 


None 


Address of where to end scan 


4-5 


None 


Address of scan output area 


6-7 


FSAPIB 


Address of keyword parameter table 



Figure 5-4. FSSCAN Table 
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FSFLQ Table 



FMOTL Table 



FSFLG is a 7-byte parameter table passed by the Control 
Statement Analysis phase to SYSIN if the control state- 
ments are not located on disk. The byte positions and con- 
tents are: 



FMOTL is a 5-byte table passed to the Halt/Syslog 
transient from the Mainline phase. Bytes 0-2 contain 
X'000009* and bytes 3-4 have the address of the output 
buffer (FDBUF). 



Byte 


Contents 





Flag byte 




X*60' = Hardware error 




X*40' = Good completion 




X'09' = Single buffer 


1-2 


Address of input buffer 


3-4 


Address of input buffer 


5-6 


Address of work area 


FSJWTB Table 





FPR NT Table 

FPRNT, a 5-byte table passed to the Halt/Syslog transient 
from the Mainline phase. The byte positions and contents 
are: 



Byte 


Cbntents 


0-1 


X'0000 1 = Control bytes 


2 


X*2A* = Message length 


3-4 


Address of the message 


PARMA Table 





FSJWTB is a 7-byte parameter table passed by the Con- 
trol Statement Analysis phase to the Job Scheduler 
Work Area Read routine to read control statements from 



PARMA, a 12-byte table in the Mainline phase (SDELT2), 
contains the constant OSSSSVT. The constant is used to 
find OSSSSVT. The byte positions and contents are: 



disK^Mgure >. 


>J. 


Byte 


Contents 




FVTAB Table 







CO' = Library 


FVTAB, a 1 7-byte parameter table, contains control in- 


1-6 


C*0$$SSVT = Name of module to be 
loaded 


formation for the VTOC Read/Write routine. It is passed 






from the Mainline phase to the VTOC Read/Write 


7 


XW = Control byte 


routine in the supervisor. The byte positions and con- 






tents are: 




8-11 


X t 40404040' 


Byte 


Cbntents 









X*02' 






1 


Unit 
Return code 








2 


Byte 


Label 


Contents 






0-1 


FSFB 


X'4860* 




34 


Address of I/O area 














2 


FSCMC 


x'ocy 




5-6 


Address of work area 


34 


FSJWTB+4 


Address of input buffer 




7-8 


Sector and displacement for format 1 

Label for format 1 ■ 3 


5^ 


None 


Not used 




9-16 


Fi*me 5-5. 


FSJWTB Table 
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PARMB Table 



FSHTB Table 



PARMB, a 12-byte table in the Mainline phase (SDELT2), 
contains the constant 0$$SSPT. The constant is used to 
find 0$$SSPT. The byte positions and contents are: 



FSHTB is a 5-byte parameter table passed to the Job 
Scheduler Work Area Put routine (Figure 5-7). The JSWA 
Put routine writes the file labels in the scheduler work area. 



Byte 


Contents 





CO' = Library 


1-6 


CO$$SSPT' = Name of module to be 




loaded 


7 


XW - Control byte 


8-11 


X'40404040' 


FMHSP Table 





FMHSP is a 7-byte table passed to the Halt/Syslog tran- 
sient from the Mainline phase for halts and error messages 
(Figure 5-6). 



Byte 


Label 


Contents 





FMHSP 


B* 1101 01 10'- Indicates halt and 
system print 


1 


None 


CF' - Indicates File Delete program 


23 


FMHLT 


Disk System — Characters to be used 
for halt display lights 

Model 6 — Code to be converted for 
halt display lights 


4 


None 


Operator options 
X'01' - Immediate cancel 
X'02' = Control cancel 
X'04' - Retry 
X'CW = Proceed 


5-6 


FMSUB 


CW - Indicates submessage area 



Byte 


Label 


Contents 





FBT1 


X'08' - indicates function byte 


1 


FBT2 


X'40' - 1 ndicates length 


2 


FCOM 


Completion code 


3-4 


FSHTB+4 


Address of I/O area 



Figure 5-7. FSHTB Table 



FRMNTB Table 



FRMNTB, a 10-byte table in the Root phase ($DELET), 
contains the constant $DELT2 and the address where to 
load the Mainline phase. The byte positions and contents 
are: 



Byte 


Contents 





XW 


1-6 


C'$DELT2' 


7 


XW 


8-9 


Address of where to load the Mainline 




phase (FREND) 



Figure 5-6. FMHSP Table 



FSSCTB Table 

FSSCTB, a 10-byte table in the Control Statement Analysis 
phase, contains the constant 0$$RDS1 and the address of 
where to load the Keyword Syntax Scan routine. The 
byte positions and contents are: 



Byte 


Contents 


0-6 


C0$$RDSr 


7 


XW 


8-9 


Address of w 



Syntax Scan routine (FSENT) 
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FSCTLO Table 



BUFFERS 



FSCTLO is a 5-byte table passed to the Halt/Syslog tran- 
sient from the Control Statement Analysis phase for logging 
the control statements (Figure 5-8). 



Byte 


Label 


Contents 


0-1 


FSCTLO 


X'OOOD' Indicates output only. Jog 
control statement 


2 


None 


X'60' - Indicates 96-byte length 


3-4 


None 


Address of I/O area (FSBUF} 



Figure 5-8. FSCTLO Table 



FSBUF Input Buffer 

FSBUF, a 96-byte input buffer in the Control Statement 
Analysis phase, contains control statement images- The 
last byte is labeled FSCEND. 



FSSCOT Output Buffer 

FSSCOT, a 128-byte output area, contains the valid key- 
word operands. It is passed from the Keyword Syntax 
Scan routine to the Control Statement Analysis phase. 



FVIO I/O Buffer 



FSSYSM Table 

FSSYSM is a 7-byte table passed to the Halt/Syslog tran- 
sient from the Control Statement Analysis phase for halts 
and error messages (Figure 5-9). 



Byte 


Label 


Contents 





FSSYSM 


B'110101 10' - Indicates halt and 
system print 


1 


None 


C'F' — Indicates Fiel Delete program 


2-3 


FSHALT 


Disk System — Characters to be used 
for halt display lights 

Model 6 - Code to be converted for 
halt display lights 


4 


None 


Operator options 
X'OU' = 1 mmediate cancel 
X'02' = Control cancel 
X'04' = Retry 
X'08' = Proceed 


5-6 


FSSUB 


C%W - Indicates submessage area 



FVIO, a 512-byte input/output buffer in the Mainline 
is used to read the volume label and VTOC index. 



FFIO I/O Buffer 

FFIO, a 64-byte input/output buffer in the Mainline phase, 
is used to read the file labels. 



WORK AREAS 



FSWRK Work Area 

FSWRK is a 47-byte work area defined in the tables of 
constants FSFLG of the Control Statement Analysis phase 
(SDELT1). The address of FSWRK is passed to SYSIN 
when FSFLG is passed to SYSIN by the Control Statement 
Analysis phase. 



Figure 5-9. FSSYSM Table 
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PART VI 
DISK COPY/DUMP 



HI 
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Section 1. Introduction 



The IBM System/3 Disk Copy/Dump program has two 
unique functions: copy pack and copy file. They are used 
to: 

• Copy the contents of one disk onto another. 

• Copy a data file from one disk to another, 

• Copy a data file from one location to another on the 
same disk. 

• Print the contents of a data file. 

If the user requests the copy pack function of the Disk 
Copy/Dump program, the entire contents of one disk pack 
are transferred to another disk pack without regard to file 
organization or type. If the user requests the copy file 
function of the Disk Copy/Dump program, the selected 
files may be copied or have records deleted; indexed files 
may be reorganized or records deleted. Printed copies of 
the data files may also be requested by the copy file 
function. 



SYSTEM REQUIREMENTS 

The IBM System/3 Disk Copy /Dump program uses the 
following minimum system configuration: 

Disk System 

t IBM 5410 Processing Unit, Model A12 

• IBM 5203 Printer, Model Al 

• IBM 5424 Multi-Function Card Unit, Model A 

• IBM 5444 Disk Storage Drive, Model 2 
Model 6 

• IBM 5406 Processing Unit, Model B2 (Includes the key- 
board with eight command keys) 

• IBM 5213 Printer, Model 1 

• IBM 5444 Disk Storage Drive, Model 2 
The following optional features are supported: 

• IBM 5496 Data Recorder, Model 1 with System/3 Model 
6 On-line Feature (Used as the Sysin device) 

• IBM 2265 Display Station, Model 2 (Cathode Ray Tube; 
used as Syslog device with IBM 5406 Processing Unit, 
Models B3 and B4 only) 
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Section 2. Method of Operation 



COMMON FUNCTIONS 



COPY PACK FUNCTION 



Figuie 6-1 shows an operational diagram of the common 
function of the Disk Copy /Dump program. 



When the user loads the Disk Copy /Dump program, the 
Root phase ($COPY) receives control. The Root phase 
passes control to the Control Statement Analysis phase 
($COSYN). The Control Statement Analysis phase reads 
the control statements from SYSIN (using the information 
from the CSYSIN table) or the procedures library into 
the CSCARD input buffer. If the logging device is on, 
CSCTLP is passed to the Halt/Syslog transient and the 
control statements are printed. The control statements 
are then checked for validity. 



Two tables of keyword parameter information (CSPKTL 
and CSFILT) are built by the Control Statement Analysis 
phase. The address of CSPKTL or CSFILT (depending on 
whether a copy pack or a copy file type of control state- 
ment is read) is placed in CSSYNT. CSSYNT is passed to 
the Keyword Syntax Scan routine ($$RDS1). The Key- 
word Syntax Scan routine builds a table of parameters 
and passes it to the Control Statement Analysis phase in a 
buffer labeled CSSYOT. CSCTL is built by the Control 
Statement Analysis phase and passed to the Root phase. 



The Root phase then uses either the copy pack function or 
the copy file function. 



Figure 6-2 shows an operational diagram of the copy pack 
function. 

If the copy pack function is requested, the Root phase 
passes CSCTL to the Main Data Transfer phase ($COPIN) 
or the Intermediate phase (SCOPIM). The Intermediate 
phase receives control if intermediate copying from one 
pack on the removable disk on drive one (Rl) to the sec- 
ond pack on Rl is required. If intermediate copying is not 
required, control is passed to the Main Data Transfer phase. 

When control is passed to the Main Data Transfer phase, the 
size of the I/O area is calculated and the pack sizes are com- 
pared. The output pack is checked for active files. Tracks 
and 1 are copied using a work area called CDPIWK, a buf- 
fer labeled CDPIBF, and control block CDPIOB. Cylinders 
from cylinder 4 to the upper limit are copied. The disk 
pack is read (using control block CDPIOB) by half track, 
full track, or full cylinder into an output area labeled 
CDPIBF. The program then exits to the EOJ transient. 

If control is passed to the Intermediate phase, space for a 
temporary file on the fixed disk on drive one (Fl) is ob- 
tained to copy cylinder 0. The rest of disk pack is copied 
and read using control blocks CDIIOB, CDOIOB, and 
CDFIOB, and the buffer labeled CDIBUF. The program 
exits to the EOJ transient. 

Note: CERRTB and COPHLT are halt tables, identical in 
format, which are passed to the Halt/Syslog transient. The 
Halt/Syslog transient generates all halts due to errors and 
displays error messages. 



Note: CSERRB is passed by the Control Statement Analysis 
phase to the Halt/Syslog transient to display any error 
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Note: Control statements 
may be read from keyboard, 
card, or disk. 




Control 
statements 



CSCARD 



CSYSIN 



( ENTER J 



Root Phase ($COPY) 

• Loads phase 

• Maintains CSCTL 



I 



CSCTL 



I 



CSCTL 



Copy Pack 
Function 



CSCTL 



Copy File 
Function 



Control Statement 
Analysis Phase ($COSYN) 

• Reads in control 
statements 

• Checks for errors, 
validity, and proper 
sequence of control 
statements 

• Builds CSCTL 

• Prints control 
statements in 
error 



I 



CSERRB 
CSCTLP 



I 




Keyword 

Syntax 

Scan 

Routine 

($$ROS1| 



Halt/Syslog 
Transient 



Key: 



Displayed 
error messages; 
logged control 
statements 



Routine described in IBM 
System/3 Disk System: 
System Control Program 
Logic Manual, SY21 -0502 



*■ Flow of logic 
Row of data 



^» Row of data and logic 



Figure 6-1. General Diagram for the Common Functions of the Disk Copy/Dump Program 



6-6 





J« 

gr at 

i! 






1! 



a 






I e 






ii. 

lag 

£ £ - 1 




1 


^ 2 w 

ill 




1 
J 

I 



o - 5 



Figure 6-2. Operational Diagram for the Copy Pack Function of the Disk Copy/Dump Program 
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COPY FILE FUNCTION 



Figure 6-3 shows an operational diagram of the copy file 
function. 

If the copy file function is requested, the Initialization 
phase (SCOFIN) receives control and CSCTL is passed to 
it by the Root phase. This phase does a special open to the 
input and output files (using CFIN and CFOUT) to obtain 
record length and file type. It analyzes the attributes, finds 
storage sizes, and saves record lengths. This information 
is placed in a DTF and stored in the Root phase immediately 
following CSCTL. Control is then passed to one of the 
following five phases. Register 1 points to CSCTL and the 
DTFs and is input to each of these phases: 



Simple Copy Files ($CONDP) copies an indexed, non 
multi-volume direct, or consecutive file that does not 
require printing or deletion of a record or reorganizing. 
This phase uses CONEND as a record area for one logical 
record. 



Copy Non-Indexed Files ($CORECj copies a consecu- 
tive or non multi-volume direct file and deletes and/or 
prints a record. 



Non-Reorganization Indexed Sequential File ($COCIOj 
prevents reorganization of an indexed file and allows 
deletion and printing of a record. This phase uses 
COIEND as a buffer for one logical record. 



Reorganization Indexed Sequential Files ($COREI) 
copies an indexed sequential file, allows deletion and 
printing of a record and reorganization. This phase uses 
COIEND as a buffer for one logical record. 



Multi- Volume Direct Files f$COMVD) copies a multi- 
volume direct file and allows printing. 



Intermediate Control ($COFIM) receives control if inter- 
mediate copying (from one pack on Rl to another pack 
on Rl) is requested. The Intermediate Control phase re- 
ceives the DTFs and opens input one. It then determines 
if main storage space is available and preallocates space 



on the fixed disk on drive one (Fl). The Fl DTF is 
opened and added to the DTFs from the Root phase. 
The Intermediate Control phase then passes control to 
one of four phases. Register 1 points to CSCTL and the 
DTFs and is input to each of these phases. Each phase 
uses CFIOB as a.control block and the CFVLBF buffer 
for reading the volume label. 

1 . Intermediate Reorganization ($COIR Yj copies 
and reorganizes an indexed sequential file, allows 
record deletion from an output file, and allows 
printing with no output on disk. 

2. Intermediate Non-Reorganization ($COIRN) 
copies an indexed sequential file with no reorgan- 
ization and allows record deletion from the out- 
put file. 

3 . Intermediate Consecutive ($CONOI) copies a con- 
secutive or non multi-volume direct file and allows 
record deletion (if not direct) and printing with 
output on disk. 

4. Intermediate Multi- Volume Direct f$COIMD) 
copies multi-volume direct files and allows print- 
ing. 



• End of Job Phase ($COEOJ) puts the correct volume 
sequence number and file type in the output if copying 
only one volume of a multi-volume file. 

Note 1; All phases except Simple Copy Files, Initialization, 
and Intermediate Control phases call the Print phase. The 
Print phase loads SYSLIST and passes a table of informa- 
tion (CPL1ST) and print buffer CPBUF to it. The Print 
phase prints a record and changes unprintable characters to 
vertical hexadecimal characters. Control is then returned 
to the calling phases. The Print phase is loaded by the Non- 
Reorganization Indexed Sequential Files phase. 

Note 2: All phases except Initialization, Intermediate Con- 
trol, and Print phases exit to the EOJ transient or to the 
EOJ phase which then exits to the EOJ transient. 

Note 3: CFERR, CORHLT, CRIHLT, and CHTTB are halt 
tables which are identical in format and are passed to the 
Halt/Syslog transient. The Halt/Syslog transient generates 
all halts due to errors and displays error messages. If the 
logging device is on, the Copy Non-Indexed Files phase 
passes CNOTAB to the Halt/Syslog transient to print error 
messages on the logging device. 
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Figure 6-3. Operational Diagram for the Copy Files Function of the Disk Copy /Dump Program 
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Section 3. Program Organization 



This section contains a functional description of each phase 
included in the IBM System/3 Copy /Dump program- 
Storage maps and flowcharts are provided where necessary. 



COMMON FUNCTIONS 

Initially the Root phase receives control and loads the 
other phases into storage. The control statements are 
read and checked for validity. A table of constants 
(CSCTL) containing information found on the control 
statements is built and maintained by this group of phases. 
This table, CSCTL, is used by both the copy file and copy 
pack functions. 



Root Phase ($COPY) 



Entry Point: CROOT 



Chart: None 



Control Statement Analysis Phase ($COSYN) 
Entry Point: CSBEG 
Chart: FA 

Functions: 

• Reads control statements into input buffer CSCARD. 

Note: If the control statements are read from the job 
scheduler work area, no retry is allowed on halts. 

• Checks for errors and proper sequence of the control 
statements. 

• Builds a table of constants (CSCTL) containing infor- 
mation found on the control statements and passes it 
to the Root phase. 



Functions: 

• Calls the various phases into main storage. 

• Maintains a table of constants (CSCTL) that is 
to various phases. 



Input: Table of constants (CSCTL) from Control 
Statement Analysis phase 



Input: Control statements read from SYSIN or the job 
scheduler work area 



Output: 

• Table of constants (CSCTL) 

• Printed control statements if the logging device is on 



Output: Table of constants (CSCTL) to various phases 

Exits: 

• Normal 

1 . Supervisor to load the phases 

2. Entry point of the phase called 

• Error - None 



Exits: 

• Normal 

1 . Root phase after building table of constants 
CSCTL 

2. Keyword Syntax Scan routine to check for valid 
keyword parameter 

• Error - Hal t/Syslog transient 
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COPY PACK FUNCTION 



Main Data Transfer Phase ($COPIN) 



The copy pack function transfers the entire contents of 
one disk to another without regard to data type, format, 
or contents. The receiving pack must not contain any 
active files and must be the same logical size. Figure 6-4 
a storage map for the copy pack function. 



Entry Point: COPINT 



Chart: FB 



$COPY 



Supervisor 



CSCTL Table 



Root Phase 
iSCOPY) 



Control 
Statement 

Analysis 

Phase 
($COSYN) 



Keyword Syntax Scan 
Routine ($$RDS1) 



Unused 



$COPIM 



Supervisor 



CSCTL Table 



Intermediate 

Phase 

($COPIM) 



I/O Work Area 



Unused 



$COPIN 



Supervisor 



CSCTL Table 



Main Data 

Transfer Phase 

<$COPIN) 



I/O Work Area 



Unused 



Note: In each phase there is a dark line. The area below the 
line is newly loaded by that phase. The area above the line 
remains the same as it was in the preceding phase. 

Figure 6-4. Storage Maps of the Copy Pack Function of the Disk 
Copy/Dump Program 



Functions: 

• Determines the size of the input/output area that may 
be used. The larger the input/output area, the faster 
the copy may occur. The minimum area is 3,072 bytes 
and the maximum is 12,288 bytes (full cylinder). 

• Checks the size of the pack to be copied. 

• Changes the last byte of the output IPL label (track 0, 
sector 0) to equal the Q code of the output pack: 

1 . X*A0' if Rl (removable disk on drive 1) 

2. X'A8' if Fl (fixed disk on drive 1) 

• Copies all of track and 1 except for: 

1 . Volume serial number 

2. Owner ID 

3. Alternate track information 

4. Outboard data recorder/statistical data recorder 
(OBR/SDR); program protection sectors 

• Determines whether the output volume contains active 
files. If active files are present, a halt occurs. 

• Writes out a volume serial number of (,„„,) and directory 
pointers of 'FFFF'; saves the good serial number and 
pointers in an unused area of the label. 



Input: Table of constants (CSCTL) from the Control 
Statement Analysis phase 



Output: Tracks and 1 , cylinder 4 to last customer 
cylinder copied and updated 
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Exits: 

• Normal - EOJ transient to end job 

• Error — HaJt/Syslog transient 

Intermediate Phase l$COPIM) 

Entry Point: COPIM 
Chart: FC 

Functions: 

• Determines the size of the input/output area that may 
be used. The larger the input/output area, the faster 
the copy may occur. The minimum area is 3,072 bytes 
and the maximum is 12,288 bytes (full cylinder). 

• Checks the size of the pack to be copied, 
t Copies cylinder 0. 

• Copies all of track and 1 except for: 

1 . Volume serial number 

2. Owner ID 

3. Alternate track information 

4. Outboard data recorder/statistical data recorder 
(OBR/SDR); program protection sectors 



• Obtains space on fixed disk on drive 1 (Fl ) to use as a 
temporary file. 

• Halts and issues a message to operator to mount the 
correct pack. 

• Determines whether the output volume contains active 
files. If active files are present, a halt occurs. 

• Writes out the good volume label, destroys the label of 
(„„„), and restores the pointers that were saved. 



Input: Table of constants pointed to be XR1 
Output: Copied disk 

Exits: 

• Normal - EOJ transient to end job 

• Error — Halt/Syslog transient 
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COPY FILES FUNCTION 

The copy files function analyzes the file attributes to deter- 
mine (1) if a data file is to be copied from one disk to 
another or from Rl to Rl on different packs (intermediate 
copying) (2) the type of file to be copied; indexed, direct, 
consecutive, and whether printing, reorganization, or de- 
letion is required. The correct phase needed to fulfill the 
request is then loaded and the file is copied. Figure 6-5 is 
a storage map for the copy files function. 



Exits: 

• Normal — Supervisor 

• Error - Halt/Syslog transient 

Simple Copy Files Phase ($CONDP) 

Entry Point: SCONDP 



Chart: FE 



Initialization Phase ($COFIN) 



Entry Point: COFI 



Chart: FD 



Functions: 

• Determines the type of copy file requested and the 
phases needed to fulfill the request. 

• Determines the storage size available for the program. 

• Obtains the record length and passes it to the Root 
phase to be saved. 



Input: XR1 points to a table of constants (CSCTL) from 
the Root phase 



Functions: Copies the following files when printing, de- 
leting, or re-organizing is not required: 

• Indexed sequential 

• Consecutive 

• Direct (when not multi-volume) 

Input: 

• Disk file to be copied 

• XR1 points to a table of constants (CSCTL) from the 
Root phase 

• DTFs immediately following the CSCTL table 
Output: Copied file on disk 



Output: 

• DTFs stored in the Root phase 

• XR1 points to table of constants (CSCTL) 



Exits: 

• Normal 

1 . Supervisor to open and close files, load halt 
transient, and load EOJ transient 

2. EOJ transient routine to end job 

3. EOJ phase (SCOEOJ) if one volume of multi- 
volume file 

• Error - Halt/Syslog transient 
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$COPY 



Supervisor 



CSCTL Table 



Root Phase 
($COPY] 



Control 
Statement 

Analysis 

Phase 

($COSYN) 



Keyword 

Syntax Scan 

Routine 

($$RDS1) 



Unused 



$COFIN 



Supervisor 



CSCTL Table 



DTFs 



Initialization 
Phase ($COFIN) 



Unused 



$CONDP 



Supervisor 



CSCTL Table 



DTFs from 
$COFIN 



Data Management 



Simple Copy Files 
Phase <$CONDPJ 



Logical Record 



Input IOB 



Input Buffer 



Output IOB 



Output Buffer 



Output Index 



Unused 



$COREC 



Supervisor 



CSCTL Table 



DTFs from 

$COFIN 



Date Management 



Copy Non-Indexed 
Files Phase 
($COREC| 



Logical Record 



Input IOB 



Input Buffer 



Output IOB 



Output Buffer 



Print Phase 



Unused 



$00 RE I 



Supervisor 



CSCTL Table 



DTFs from 
SCOFIN 



Data Management 



Reorganization 
Indexed Sequential 
Files Phase (SCORED 



Logical Record 



Input IOB 



Input Buffer 



Input Index 



Output IOB 



Output Index 



Print Phase 



Unused 



$C0C10 



$COFIM 



$CONOI 



$COIRN 



$COIRY 



Supervisor 




Supervisor 




Supervisor 




Supervisor 




Supervisor 


CSCTL Table 


CSCTL Table 


CSCTL Table 


CSCTL Table 


CSCTL Table 


DTFs from 
$COFIN 


DTFs from 
$COFIN 


DTFs from 
$COFIN 


DTFs from 
$COFIN 


DTFs from 
$COFIN 


Data Management 


DTF 


DTFs from 
$COFIM 


DTFs from 
SCOFIM 


DTFs from 

$COFIM 


Non-Reorganization 

Indexed Sequential 

Files Phase <$COCIO) 


Intermediate 

Control Phase 

($COFIM) 


Intermediate 

Consecutive 

Phase ($CON01) 


Intermediate 
Non-Reorganization 

Phase ($COIRN) 


Intermediate 
Reorganization 

Phase ($COIRY) 


Logical Record 


Data Management 


Data Management 


Data Management 


Input IOB 


Logical Record 


Logical Record 


Logical Record 


Input Buffer 


Input IOB 


Input IOB 


Input IOB 


Output IOB 


Input Buffer 


Input Buffer 


Input Buffer 


Output Buffer 


Output IOB 


Output IOB 


Output IOB 


Output Index 


Output Buffer 


Output Buffer 


Output Buffer 


Print Phase 


Print Phase 


Output 1 ndex 


Output Index 


Print Phase 


Print Phese 


Unused 


Unuseo 


Unused 


Unused 


Unused 



Note: In each phase there is a dark line. The area below the line is newly loaded by that phase. The area above the line remains the 
same as it was in the preceding phase. 

Figure 6-5. Storage Maps of the Copy Files Function of the Disk Copy/Dump Program (Part I of 2) 
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$COMVD 



Supervisor 



CSCTL Table 



DTFs from 
SCOFIN 



Data Management 



Copy Multi-Volume 

Direct Files Phase 

(SCOMVD) 



Logical Record 



Input I OB 



Input Buffer 



Output IOB 



Output Buffer 



Print Phase 



Unused 



$COIMD 



Supervisor 



CSCTL Table 



DTFs from 
$COFIN 



DTFs from 
$COFIM 



Intermediate 

Multi-Volume 
Files Phase 
($COIMD) 



Data Management 



Logical Record 



Input IOB 



Input Buffer 



Output IOB 



Output Buffer 



Print Phase 



Unused 



Figure 6-5. Storage Maps of the Copy Files Function of the Disk 
Copy /Dump Program (Part 2 of 2) 



$COEOJ 



Supervisor 



CSCTL Table 



DTFs from 
$COFIN 



End of Job 
Phase |$COEOJ) 



Unused 



Copy Non-Indexed Files Phase ($COREC) 
Entry Point: COREC 
Chart: FF 

Functions: 

• Copies a consecutive file or a direct file that is not 
multi-volume. 

• Deletes a record if specified (consecutive file only). 

• Prints a record if specified. 

Input: 

• XR1 points to a table of constants (CSCTL) from the 
Root phase 

• DTFs immediately following the CSCTL table 
6-16 



Output: 

• Copied file on disk 

• Printed file 

Exits: 

• Normal 

1 . Print phase to print a record 

2. EOJ transient to end job 

3 . EOJ phase ($COEOJ) if one volume of multi- 
volume file 

• Error - Halt/Syslog transient 



Non -Reorganization Indexed Sequential Files Phase 
($COCIO) 



Entry Point: COINDX 
Chart: FG 

Functions: 

• Copies an indexed sequential file. 

• Allows the file to be reorganized. 

• Allows specified records to be deleted. 

• Allows records to be printed. 

Input: 

• XR1 points to a table of constants (CSCTL) passed 
from the Root phase 

• DTFs immediately following the CSCTL table 

Output: 

• Copied file on disk 

• Printed file 



Reorganization Indexed Sequential Files Phase (SCORED 

Entry Point: COINDX 
Chart: FG 

Functions: 

• Copies an indexed sequential file. 

• Prevents reorganization. 

• Allows records to be deleted. 

• Allows records to be printed. 

Input: 

• XR1 points to a table of constants (CSCTL) from the 
Root phase 

• DTFs immediately following the CSCTL table 

Output: 

• Copied file on disk 

• Printed file 



Exits: 

• Normal 

1 . Print phase to print record 

2. EOJ transient to end job 

3. EOJ phase ($COEOJ) if one volume of multi- 
volume file 

• Error - Halt/Syslog transient 



Exits: 

• Normal 

1 . Print phase to print record 

2. EOJ transient routine to end job 

3. EOJ phase (SCOEOJ) if one volume of multi- 
volume file 

• Error - Halt/Syslog transient 
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Intermediate Control Phase ($COFIM) 



Intermediate Reorganization Phase ($COIRY) 



Entry Point: CFBEG 



Entry Point: CFBEG 



Chart: FH 



Chart: FI 



Functions: 

• Receives the DTFs and opens input with the correct 
attributes. 

• Determines if enough main storage is available for the 
program. 

• Preallocates space on the fixed disk on drive 1 (Fl) 
and opens the Fl DTF as consecutive output. 



Input: 

• XR1 points to a table of constants (CSCTL) 
from the Root phase 

• DTF immediately following the CSCTL table 



Output: 

• Fl DTF and constants added to CSCTL table 

• DTFs immediately following the CSCTL table 

Exits: 

• Normal - Entry point of phase called 

• Error - Halt/Syslog transient 



Functions: 

• Copies and reorganizes an indexed sequential file 
from one pack of the removable disk on drive one (Rl) 
to another pack on Rl . 

• Allows records to be deleted from the output file. 

• Allows printing to be specified with output on disk. 

Input: 

• Indexed file on the input pack on Rl 

• XR1 points to the table of constants (CSCTL) from 
the Root phase. 

• DTF immediately following the CSCTL table 
Output: Reorganized file on the output Rl 

Exits: 

• Normal 

1 . Halt/Syslog transient for mounting packs 

2. Disk IOS routine for reading the volume label 

3. Print phase to print record 

4. EOJ transient to end job 

5. EOJ phase ($COEOJ) if one volume of multi- 
volume file 

• Error - Halt/Syslog transient 
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Intermediate Non- Reorganization Phase ($COIRN) 



Intermediate Consecutive Phase ($CONOI) 



Entry Point: CFBEG 



Chart: FI 



Entry Point: CFBEG 
Chart: FI 



Functions: 

• Copies an indexed sequential file from one pack on Rl 
to another pack on Rl with no reorganization. 

t Allows records to be deleted from the output file. 



Input: 

• Indexed file on the input pack 

• XR1 points to a table of constants (CSCTL) from the 
Root phase 

• DTF immediately following the CSCTL table 



Output: Indexed file on the output pack 



Functions: 

• Copies a non-indexed file and a direct file that is not 
multi-volume from one pack on removable disk on drive 
one (Rl) to another pack on Rl . 

• Allows records to be deleted from the output file (con- 
secutive file only). 

• Allows printing with output on disk. 



Input: 

m Consecutive file or a direct file that is not multi-volume 
on the input pack 

• XR1 points to a table of constants (CSCTL) from the 
Root phase. 

• DTF immediately following the CSCTL table 



Exits: 
m Normal 

1 . Halt/Syslog transient for mounting packs 

2. Disk IOS for reading the volume label 

3. Print phase to print a record 

4. EOJ transient to end job 

5. EOJ phase ($COEOJ) if one volume of multi- 
volume file 

• Error - Halt/Syslog transient 



Output: Consecutive file or a direct file that is not multi- 
volume on the output pack on Rl 



Exits: 
• Normal 

1 . Halt/Syslog transient for mounting packs 

2. Disk IOS routine for reading the volume label 

3. Print phase to print record 

4. EOJ transient to end job 

5. EOJ phase ($COEOJ) if one volume of multi- 
volume file 



Error - Halt/Syslog transient 
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Print Phase {$COPRL - Disk System) 
($COPRM - Model 6) 



Entry Point: COPRT 
Chart: FJ 

Functions; 

• Prints a record with its key or number. 

• Indicates if a record is deleted. 

• Prints a scale at the top and bottom of each page. 

• Prints the record count. 

Input: 

• Record address 

• Record length 

• Record key or number 

• An indication in the CSCTL table of constants when 
a record is deleted 

Output: Printed records with a record count 

Exits: 

• Normal 

1 . SYSLIST to print a record 

2. Calling routine once record is printed 

• Error - Halt/Syslog transient 



Copy Multi-Volume Direct Files Phase ($COMVD) 
Entry Point: COREC 
Chart: FK 

Functions: 

• Copies a multi-volume direct file. 

• Prints a record if specified. 

Input: 

m XR1 points to a table of constants (CSCTL) from the 
Root phase 

• DTFs immediately following the CSCTL table 

Output: 

• Copied file on disk 

• Printed file 

Exits: 

• Normal 

1 . Print phase to print a record 

2. EOJ transient to end job 

3. EOJ phase ($COEOJ) for volume sequence number 

• Error - Halt/Syslog transient 
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Intermediate Multi-Volume Direct Phase ($COIMD) 



End of Job Phase ($COEOJ) 



Entry Point: CFBEG 



Entry Point: COEOJ 



Chart: FI 



Chart: FL 



functions: 

• Copies a multi-volume direct file from the pack on the 
removable disk on drive one (Rl) to another pack on Rl 

• Allows printing with output on disk. 

Input: 

• Multi- Volume direct file on the input pack 

• XR1 points to a table of constants (CSCTL) from the 
Root phase 

• DTF immediately following the CSCTL table 



Output: Multi- Volume direct file on the output pack on 
Rl 



Exits: 
• Normal 

1 . Halt/Syslog transient for mounting packs 

Disk IOS routine for reading the volume label 

Print phase to print record 



EOJ phase ($COEQJ) for volume sequence num- 
ber 



PUnction: Puts the volume sequence number and file type 
in the output file when copying one volume of a multi- 
volume file. 



Input: 

• XR1 points to a table of constants (CSCTL) from the 
Root phase 

• Reads Fl from the scheduler work area 

• Reads F7 from the scheduler work area if an indexed 
file 



Output: 

• File type and the volume sequence number in F 1 of the 
output file 

• Volume sequence number in F7 of the output file if an 
indexed file 



Exits: 

• Normal - EOJ transient 

• Error - Not applicable 



• Error — Halt/Syslog transient 
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• SET TO LOAD • 

• *COBBI * 



»*** 

* • 

* J3 *-> 

* • 
♦ «*• 

.*. 

J3 *. 

.* i 

•. *VF 



• YES 



*****K3***««««** 
•LOAD NEXT PHASE 



•HOFE OCTTPDT DTP* 
■>• OP • 



••*•*••*•••*••«** 



• ••*K(|*****«««* 
■>• EXIT * 



TO: PHASE 
LOADED 



' A3 • 

• *** 
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COMDP 

• BRTER < 



• • 

• GET DTP * 

• ADDRESSES HMD * 

• SITE. • 



•C1LCDL1TE COBB • 

• SIZE HID • 

• ALLOCATE • 

• BDPPERS • 



CKBP 



E HOD OH *. 

HA IB 
STOHAfiE . • 



CFCOBT 

• INITIALISE • 

• DTP'S. FORCE 



IHP&T TO 
COISBCOTITE 



PI 



IBDBX 

PILE 



• B3 • 



CLOSE PILES 



kote i 

■>• EXIT • 

TO: fSSPEJ 

IKD-OP-JOB 
THRBSIEXT 



C3 *. 



.• ♦. TES 

•- BRSOa .• 



WOTB 1 

* • 
•>♦ HALT • 

* • 
•********♦**♦** 

TO: MBSTBT 

RklT/SlSlQG 



CFCP * 

•••D3 •*•*** •**•*• 



POT OUTPUT 



lis* to 

ILT/ "■- 



* HALT/STSLOG 



• END OP ♦. TES 
ITEBD .* 



•OPBW IBPQT PILE* 

•>*AWD OUTPGT FILE* 

•AS COISECUTIVE • 



. *. 

?3 ♦. 



BBIOB 



BOTE 1 
>* HILT < 



TO: iEHTBT 

BALT/3TSL0G 



CFCPTI 



TES 



• OPES OEFTPOT 

• PILE AS T.1DM 

• OUT 



• •*• 

• • 

• HI *-> 

• • 



>• HI • 



GET II POT 



• ••* 

* * 

* B3 * 



NOTE 1: SEE IBB SISTERS/] DISK 
STSTEHS STSTEH COHTHOL 

sT^a* 0010 B " D1L 
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CORK 



• *** 

• * 

• 13 ♦ 

• * 

• ♦•♦ 



•SITE XR1, DTF«S» 

• DETEBMHE • 

• oe«B»Tioir * 



COROOl 

•**»*ci *•••*••••* 

• • 
•DETERHIBE COBB * 
•SIZE MCESSftBY * 

• POE PBTBT OIIT • 



DISK 
OOTPOT 



1*5 



• pItbrbiiis i 

•ADDITIONAL CQBt< 

• azEOSO pok < 

• ODTPDT DTP ' 



E80UGH 
CORE 



COAEBH goTE 1 

*****P2 •**»•»* 

• * 

* • SUTBt 
. — >* • 

ft 



1." 

• T2 • 



• (HILT/ 

• ST5LO&I 



CBDELE 

*****£ 4 *******.*«* 



*. 



.• DELETE • . IES 

• . SPECIPIED .• 

• . .* 



•••* 

• i 

• B3 ■■ 

• i 
*♦•• 



• OBTftW DELETE • 

HBiCTBB I 

POSIT 10 I 



->• CHftBlCTBB AID *■: 



B3 



PBIttT 
OBLT 



V 

***** 
•002* 
• »!• 

• • 



CBDCKP 

.**Tais 

.* RECORD TO 
— >•. BE 

•. DELETED . 
*. . • 

•• •* 
• IBS 



•****55 **»*•***** 



•IttDICATE DELETE* 
•TO PHUT PHASE • 



••••* 
•002* 
• *1» 



• •** 
i • 
» B3* 

> • 

• ••• 



POT BKCOBD 



3 •- 




D« •. 






D5 ♦. 






.• DOES •. 






• •_ 


•. 10 




•ootpbt aap •. id 




.* 


*. IBS 


EKSO* .* — — 


— - >• 


BSD BBFOBB .* 


— >* 




PB»T .• -• 






•. MPOT *• 




• 


♦ . .♦ k 












•. . * 




*. .• 






• TBS 




• ies 






* IFO ••♦•* 


1 »♦•♦ 

* * 
L->* y 2 • 




1 ***• 

• • 






1 •••• *002« 
• •• Al* 

L->* HI • • • 















» SET BUPPEB5, 

• BOTLD DTP'S, 

• OPEN IHPDT 

• PILES 



PJ •. 

.• •. 

■>*.' 8ETHK 

*- 

• . .• 

•- .♦ 

YES 



»***g3*«*«***** 

> 4 

> fiBTOBR TO ABB « 



iaflEDIlTE 
CftlCBL 



•*•♦••*••****•» 



*•** 
•002* 
02-E1* PI •-> 



• ••* 
COBOET 



<-* HI • 

* * 

• ••• 



SET KECORD 



BOTE 1: SEB IM STSTEHS/3 DISK 
STSTEKS SYSTEH C0MT10L 
PRQGBftft LOGIC BftlDftL 



. • •. 


YES 


•. ERROR 


• 1 


*. .* 


\ 


*. .* 


*« .* 


* MO 


*••• 


1 


• • 




• P2 • 




• • 


I 


• ••• 










Kl •. 




.* *, 




. • BUD OP •- 

*. PILE 


TES 


• . . • 


V 


*. .* 


***** 


*. •• 


•002* 
• A3* 


• HO 


1 


• • 




« 


*;.* 




• • 




• jii • 




• * 




•••• 
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COPBTB 

01-B3* SATE HETDHB • 

Dl-flS* HDDS ESS RBSTOBE* 

r ->*THl TO POIBT TO* 

[ * COKTBOL • 

♦ TjrOFHfcTIOH • 



•001* 

• 05* 
***** 



• •««* 
•00 1* 

* K1* COBEOP 

* * *****X3*****«*#** 



* INDICATE LUST « 
■>*RECORD TO PBTHT* 

• 80UTIHE i 



rj/i/Bn 



' TS THE *. 

BUD OF FILE . 

'. REACHED . * 

*. .* 

*« . • 

* BO 



* IHCREBEHT 
->♦ UECOBD COUHT 



PBIHT BBCOBB ♦ 



*****C1*******« 

• IKCBEBBBT 

• BECORD COUNT, 

• PETEBHUE 

• BECO80 TO BE 

• PROCESSED 



COBCHT 



CLOSE IHPOT 
PILE 



DELETE 
BBCOBO 



DISK *. TBS 
1KP0T .*-- -- 

.* 



* CL05E OUTPUT 
>* FILE 



• HO 






»•** 


1 




• 


• 






• 


P1 • 






• 


* 






• •** 


.*. 








El *. 








.* *. 








. * PBIBT * 


. 10 




*. THIS BECORD 


.+- 


■— 


--_.-.--.-, 


*. . * 






7 


*. .* 






***** 


*. .* 






•001* 


'" TBS 






• HI* 


• ••• 








* • 


• * 








• 


* PI • -> 










• • 










• ♦•• 












\ FJ/1/E4 






MCOPBL 


• 






* 


• 






• PBIBT BBCOBD 


• 






* 








***** 








♦Oil* 








• f 


[1* 









•***E3********** 

* * » 

• NENTBT * • 

* (HALT/ ♦ * 

♦ SYSLOC.) • * 

• * • 
•**•*•••**•****» 



TO: JJ5PEJ 

ESD-OF-JOB 
TBAHSIEWT 



BOTE 1: SEB IBB SKSTEH/3 BISK 
SltSTBllS SYSTEfl COBTBOL 
PBOGBAB LOGIC BANOAL 
SY21-0502 
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• *** 

* A3 • 

* • 



i i 
* A5 < 



A3 



*. TES * * 
PHIKT .♦ >• A5 * 



•BBSTDBE XB1 TO 

• POTBT TO 

• COBTBOL 1BPO 



* • 

* B3 •-> 

* * 
• ♦*• 

COIGET 



*V***B5 **•*♦•••* 



• SAVE XB1 • 

• CALCOLATB DTP • 

• ADDSESSES • 



GET A RECORD 



****C j********* 



5ET OPERlTlOB 
SWITCH 



•CALCULATE COBE • 
•SIZE BECBSSABY * 
•FOR PBIWT OILT ♦ 



C3 *. •• 




*. TES * 




EBEOE .* >• 


INPUT EKBOR • 


.* A * 




■. *•■ i :. 




• KO 








* * 






•002* 






• B3* 






• **a« 
















03 •. 




• . 




EMD OF *. YES 




FILE -* ■ 




.* T 




.* *•••• 




*. .* *002* 




* 1*0 * in* 






* * 






■ 











CIOELS 



DISK 
3DTPDT 



KO 



• CALCULATE • 
•ADDITIONAL COBB* 

• BOB OOTPOT * 



DELETE *. TES • OBTAIB DELETE • 

SPECIFIED .♦ >* CHABACTEB AND • 

.• A * POSITtOB ♦ 



I *- 



1 








* * 
•002* 

• D3* 

• •••* 


coiprr .*. 

F3 • 

• ••• _• 

* TBS .* PBIBT 
15 •< *. 0»LY 

* *. 

• •♦• • . 


*. 
• 


CIDCtIF 

JiO -• 

• 



. • 8B0BGH *. HO 
(IAIN . *— 

•. STORAGE .* 



coinu 

****«[p*«*«»*»*« 



BOILD X1PDT DTP 



POT RECOBD 



•UD1CATE DELETE* 

• TO PBTMT ♦ 

* RODTIHE * 



•002* 

• D1* 

♦ ♦#♦* 



• ••• 



*♦♦♦ 
>■->• A5 * 



15 
■ 



J1 *- 

, • PHIWT *. tES 

OMLT .• 

*. .* 

♦ . .* 

*. .* 
• HO 



H3 *. 

i 

EBBOB 



J3 



-->* 0BTP3T ERROB ♦ 
A • • 



•002* 
* F3* 

***** 



C5 *. 
. • *. 

THIS *. YES 

BECOfiD .* t 

'. DELETED . • 



***• 

* • 

• E5* 



D5 *. 
.* *. 

.* THIS *. MO 

BECORO ,*~ " 
*. SELECT ." 
*. .* 



***• 
i * 

* 35 *-> 
► • 

• **• 



* FJ/l/A 



* PBINT BECOBD 



TO: CALLER 



NOTB 1: 

SBE IBB STSTgK/3 

DISX STSTBBS SYSTEM 

COMTROL PBOGBAN 

LOGIC tlAKUAL 

SY21-0502 



• ••• 

• • 

• J5 ♦ 

• * 



NOTE 1 

* • 



corrop 



BUILD OUTPUT 
DTP 



• • HO .* END OP 

• A3 *< *- XTeWT 

• * *. 



♦ ♦*♦ 
♦002* 

• G3 *-> 



COIAFT 

••♦•**2« 



♦ INITIATE KBT • 
■>* LEHGTH TO * 

* SELECT KEY * 



♦ *•♦ 

* i 

■>• B3 » 



**♦• 

•♦•**K3**»*»»«»* 

+ 

* JCTEMT EHBOB 



->• • (HALT/ 
SV" 



• i«* 

• ♦ 

• JU ♦ 

• • 








FA 

* 

BB1 


* 
"BY 



RETDBH * 

i 4 

♦♦*•••♦•*♦♦*•*• 

TO: CALLB& 



•***KS********* 

> IBREOIATB * 

CASCEL • 



• *•* 

• * 

* J-i * 
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*••* 

► 1 
* 13 < 



COIBDX 

****11********* 

• ehtbb < 



* * 1 

• *** 1 



GST 1 BECOBD 



.* PBIBT ♦ . TBS 
r->*. IBDIC1TBD .♦— - 



1-S-. HVlkKAV i 

•. .* 

•. .♦ 

♦. .* 
• 10 



•IIDICITE PRIST 
->♦ BECOBD COD«I 



• • 
•001* 
* D3« 
***** 



• SITE III ♦ 

• CllCOllTE DTF • 

• IDDBB3SBS • 

• • 



.* •. TBS 
•. BIBOB .* 



• HO 



7 
***** 

•001* 
• C4* 



.♦. 

C3 ♦ . 



***** B 5* 
•BCOPBL 



********* 

* 



* PBXIT BECOHD 

• COUWT 

* 



•CHI.CIII.1TB C08S • 
*SIXE IBCESSlBf • 
* TO BOW • 



.♦ BUD Or *. TES 
FILZ .* ■ 

•. .• f • 



• CLOSB I1P0T ♦ 

• TILB • 



* 14 * 



EWODGH 
STOBIGE 



•i****i ••••*•••*• 

• IJUTI1LIZI • 

• IWPOT DTT IS: • 



****?1 ********* 
OPEI IIPPT PILE 



IHTIUIH 



7 
••*•< 

•oon 

• G2< 



•• DBLBTB •. TBS .• DISK *. TBS 

*. sPBCiTiBD .• — - •- ootpot .* 

•- -• I *. •• 

*. .• •- •• 

*. -• t •. „• 

* 10 ***** • in 



*** ••!)$••• **••••• 

• • 

* CLOSB OOTPOT • 
->• FILB • 

* * 

• * 
•*••••*•••••••••• 



COIP0T ( 



♦001* 
♦ B4* 



**,3*********«< 
WBXTB BECOBD 



TO: 1SBPBJ 

BID- OP- JO 
TB1BSIBBT 



P3 *. 

.* •. 

-• *. TES 

• - EBBOR .* ■ 

•. -• T 

*. . ♦ ***** 

•. .• *Q01* 

* BO • B»* 



.* BID OF *. TES 
*. XTBBT .• 



• 13 • 

* • 
• ••• 



♦001* 
• K3« 



0P8I OOTPOT 
FILE 



SBB IBB STSHH/3 DISK 
STSTESS 5TSTBB COfTBDL 
PB03B1B LOGIC BlVQAt 
ST21-05O2 



• ••• 

I * 

» 13 • 
» • 

• *-*• 
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• A3 * 



STAftT 



*****gi* ********* 

• SATE PTRS. TO * 

• COBTBOL AMD * 

• DTP'S, B BID * 

• TOL. LABEL * 



CI *. 

.* *. 
* GOOD 
COAPtETIOH 

"*. .♦' 

♦ . .♦ 
• TBS 



•SET DP COBTBOL 
■-->• CABCEL 

A 



i • 

#002* 

• Ft* 



02-CH •002* 

• Ft* 

***** 



D1 •. 

> •. 

BIGHT •. 80 
PACK 01 . *--- 
LIKE .* 



• YES 



•002* 
• D5* 



•***D2********* 
MIT < 



TO: SJSPEJ 

EBD-QP-JOB 
TBABSrBBT 



*****E2 •*••****• 



•BOIID IBFOT AS 
■>* IBDBX 



SET DP SALT 
MESSAGE 



•****q3********** 



• •*• 
D2-D5*O02* 

• PS •-> 

• * 

• ••• 
CHALT 

*f»**c3**»****»«* 

• * 

• POIBT TO * 
>• HALT/SrSLOG • 

TABLE ♦ 



I 



MOTE 
*****93**** ****** 



BBNTBT 



(HALT/ 
ST" 



• • SYSLQG] • • 

• • * • 

***************** 



B3 



•. BO 

BBTBT .* — 



****£4********* 

• IBHBDIATE * 
>• CABCEl * 



•****f 7 ****•«*«♦< 



TO: CALLEB 



*****Gi ********** 
•CALCULATE HAIB ♦ 
•STORAGE, BOFPEB* 
•SIZES, I/O AREA* 
• ADDRESS • 



NOTE: SBE IBB. STSTEH./3 DISK 
ST STEMS SYSTBB COBTIOL 
PBQGBAH LOGIC HAHO&L 
SY21-Q502. 



H1 *. 

,* *. ••** 

EBOOGH *. »0 • . < 

HAIB .• >• A3 < 

STORAGE .• • * 

*. .* *•** 

*. .• 
• TBS 



•***+j1 *•»•*••«•■ 
•PDT BLOCK SIZE * 

• AID BSCOBD • 

• ADDRESS IB •- 

• IBPDT DTF • 



•PBEALL0CAT2 AND* 
■>«0PEIf IBPDT DTF *- 



J3 



KET 
SELECT 



***** 
•002* 
• A1» 



.• KEY *. TBS 

— >*. SELECT > .* 

•. KEY -• 



ADJDST BET 

-AC 



CULTX 



***** 
•002* 
• Al* 



SET OP HALT • 

BESS AGE • 



•****KS* ********* 



•TUB* OFF BBTBT 
->• OPTIOB 
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•>* C3 * 

• i 
***• 
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11 



INDEX 
PUB 



DIBBCT 

PILE 



• * 
• J5* 01-J3 



• II 



•*«««Bt •**••••*•• 

• • 

• BOILD OUTPUT • 

• DTP A3 IKDBI. • 

• OUTPDT • 



•«***B2 •*•••••••• 

• ♦ 

• SET DTr poa * 

• DIRECT • 

• • 



• ♦•• 

• • 

• Cl •-> 




*••• 

♦••••Cl* 

* 

•pur bloc 

•BECOBD J 

• in ouvi 


:k sue,* 

LDDBESS • 

»0T DTP • 



• HALT, JM • 

• MESSAGE TO • 

• AOOIIT OOTPOT • 

• PACK • 



CI052 



'•••21 •••••*•••••• 



READ TAL. 
LABEL 



PI *. 
.• •. 

. • GOOD *- KO 

•. COBPLETIOW -• . 

•. .* T 

•. .• ••••♦ 



• IBS 



•001* 
• C2« 



G1 *. 

,• *. •*•• 

BIGBT •. BO • • 

PACK 0» .* >• DS • 

LIRE .• • • 
♦ « .• • **♦ 

•* • • 
• TBS 



GPIGOI 

•••• *b i ••••••* • *• 

• • 
•PREALLOCATB AND* 

• OPE* OUTPDT • 



IRDRX 

OOTPOT 



• BESBT TO 
■>• COHSECQTITE «----. 

• APTER OPEN 



.: \ 





• 

5ET DTP POB • 
CONSECUTIVE * 

* 
• 


• ••• 

• ♦ 

• AU •— . 

• * 1 

• ••• 

CBITI f 




• 
• 
• 
* 
• 


• 
• 
* 
• 
• 


HALT. SET 

RS5SAGE TO 

HOOKT I SPOT 

PACK 


• 
• 
• 
• 
• 




1 •••• 

* * 

!■->• ci • 

• • 
•*•* 


CI0S3 

• 
• 








BEAD VOL 

LABEL 


• 
• 



CM 



* GOOD 
COHPLBTION 



¥ 

• •••• 
•001* 

• C2« 



* i 
> D5 < 

* i 
*••• 



* BICBT 

nm PACK 

>. BOOMED . 

•• , * 

*. .» 

• IES 



CRRPK t 

•••••D5***««««i 

• SET OP HALT 
— >• 8E3SAGE 



•001* 

•»D1« 
• •••• 



• •••• 

• 001* 

• C3« 



• INITIALIZE. * 
•PBKALLOCATE PI • 

• DTr • 



•PDT BLOCK SIZE • .• *. 

•R8C. ADB. in Fl* TBS .* SPACE ♦. I 

• DTP, OPEN PI •< *. AVAILABLE -•- 

• DTP • *. -• 

• * •. -• 
*•••••••••**••••• •. .• 



• SRT OP HALT • 
>• BBS5AGE • 



G3 



BOOTH 

•. NEEDED 



CLPTGO 



• 001* 

• C3« 



->• 



* io Kott.r 



*3 



•. BBOBGAHIZE 
•• - TES . 



J3 



.• INDEXED •. TES 
► . PILE -• 



1**** 
• • 
->* A« • 



• ••• 

* * 

• A« • 



TO I SCOIRT 

INTEEBBDIATE 

REORGANIZATION 
PRASE 



TO: SCOIBT 

irTEBHBDIATE 

BBORGANIZATIOR 
PHASE 



EXIT 



• TES 
•< < 



DIRECT 
PUB 



• . 10 



TO: SCO in D 

INTERMEDIATE 
B0LTI-VOL0B5 



• • 

>* KU • 

• * 
• *•• 
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EXIT 



•I** 70s 



TO: SCO BO I 

• • INTERNBDIATB 

♦ KB * COISECBTIVE 
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**** 

• • 

• A3 * 

• * 
• ■*• 



• AS • 



ESTER « 



SAVE PASSED 

COWSTAKTS C 

POTBTEBS 



• ••a 

• • 

• CI • 

CPGD2 

■ GET RECOHD * 
FBO", Bt 



• 

EH BOH 
*. . • 


*' 
a. 


IE3 

• 

IBS 
• . 


• 
>• 


• • 

• 
• 

* 
* 


•*«D2 *•••**•♦** 

Sit OP HALT • 
BESSIGE * 


*'*'»c 

! 

• eko or 

FILE 


► **• 
• 
A3 ■ 


I 

***** 
• 002* 

• ■ 
a 



.* 


•. • •*♦ 


.* DEIBTE *. TBS * • 


• . SPECIFIED ,• >* A5 * 


*. ,* • • 


*, .* ♦••♦ 


♦. -• 


• HO 


• ••• 




•002* 




• 53 •-> 




• » 




*••• 




CFPUT 


' 


**«<;!•*****•••*.• 


• POT HECDRD TO • 
• « 



HI ♦- 

i 

BHIOB 



•••••H2 •*••••••• 

v 

* SET OP HALT 
-->• flBSSAGE 
I • 



1 « 



• ♦ 
•00 2* 

• B1* 

• a*** 



*•*** 
•002* 
* H4* 



.• END OP ♦. fES 

EXTBBT .* 



• SET EOP OF H1 * 



AS 



»*««ag3«******** 



CLOSE IBPOT 
FILE OB B1 



*****<;3aaaa*«aa** 



• SET TO PSINT 

* RECORD COUNT 



V FI/3/A 

aaaaao3*«**aa«ati 
•CFPfiT 

• P8IBT BZCOBD 

• COOUT 



• ••• 
CFEIT 

a«a##B3*ama«aaaa 

• CLOSE OOTPOT 

• FILE OK Fl 



***+*73+*****a«*« 

* * 
•HALT 6 GIVE HSG* 
•TO EOOHT OOTPOT* 

• PACK * 



COflflECT 

PACK 
HOOBTED - 
► . .• 

• • . * 
• IBS 



*****H2* ********* 

• * 
•OPBB P1 OTF AS • 

• COBSECITTIVB ♦ 

• OUTPUT • 



***** 
•002* 
• A1* 

a • 



r 



•••• 

a 
' G1 • 
i a 

**♦* 



•*aa*B5«a***«*«* 



SET FOB PBINT 
■DELETE' 



' PI/3/A1 
****+C$ ********** 
•CPP8T • 



• PBIUT HBSSAGE • 



•05 « 



BESET PBIlT 
•DELETE' 



•BALT * SITE HSG* 
>*FOB VBONG PACK • 



fCOISH DOES 
HOT CHECK 
FOR PBIHT 



H 



• ••* 

► * 

t B3 • 

> * 
**** 



». 



psiit 

•- .*" 

• »o 



FT/3/A 

•****K2*****a«** 

•CFP8T 

a 

■>• 

* Pit ST BECOBD 



• •■• 

• • 

!-->• Ct • 

• * 

• **• 



• a** 

a • 

• C1 • 

* * 

• *** 
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• At • 

• • 
• *•* 



, i 



* • 




• OOT* 

* H3* 






»•+ + » 




■ 


• *, 


HI •. 


. • *. 


-* •- TBS 


•. SBBOB . • . 


*. . • 7 


•. „ • ***** 


•. .• *001* 


* flO • H2* 




• * 



• EHD QF *. TBS 
PILE -♦ 



*. .* 

* NO 



CPVTH 1 



• PUT B.ECOBD TO • 
B1 



crsari .*. 

C3 *. 

.•EUD OF *, 

.• rrLE 
— >♦. ocobbed on 
•. ai 

*. .• 

*. ,« 

* HO 



CPCH1 

•••••03********** 



CLOSE ODTPBT 
PILB OV 11 



cfcP1 



• ClOSB I* POT 

• FILE 01 PI 



•. TES • SET DP 8ALT * 

BFBQ8 .♦ >* RESSAGE * 



• HALT A*D GITB 

• (ISC TO HOtJBT 

• INPUT PACK 



PI *. 

.* *. • *** 

• tn op *. wo • • 

EXTEBTS .* >• »1 * 



**** 

• • 

• *»• 



SSSPEJ 

EMD-OP-JOB 
M1BSIEBT 



P3 



,.I 



CFHCT2 



.• COB 

•• PA< 

*. ROD 

♦ . 

*. 


IECT *. 

:r .• 

(TED .• 
.* 
.* 
* TES 


EFGPF 

• ****G3* 


j 



******** 



•HALT B GIVE ISO* 
■>*FOa I101G PACK • 



* CITE HSG FOB • 
•tfOT ENODSH BOOH* 

• OB OOTPOT B1 • 



•0FE1 PILE OB F1« 
•AS COSSECUTIfE * 
• OOTPOT * 



01-D2 

***** 



• « 

• ••* 



1 




• 001* 

• B2* 








• • 








• 




***** 








*0(M* 
* G1* 




1 




CHALT 


T 




* • 
• 


•**• • 




• 




• • • 


LINK TO 
BALT/STSLOG 


• 




• HI * >* 


• 




• * • 




* 




• •** ♦ 




• 



BBTRT 



****J5********* 

* IttHEDIATE * 

->* CABCSL < 



* TES 



TO: CALLER 
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crpftT 

■ i 

' ENTER * 






^* E(fD C 



lie 

•. AEJICHED .• 



J 



IBIS SBLECT 
BT1 IS *0T 
IH TBI 
ICOIRH PHISE 



HOTB 



.• SELECT •. tUS 
>•. SPECIFIED .* 



* SEIECT *. 1 
THIS 2BCOBD .*- 



DBLETED 
RECOBD 



'■ FJ/l/il 



•SCOPBL * 

*«. * 

• • 

• phut recoed • 



EETOSH • 
TO: C1LIM 



♦ *•♦ 



MOTE: ROT USED FOR THE 

riTBRH£DI*T8 aULTI-TOlUFIE 
DIBECT PH1SB (JCOIJID) 
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5TABT 



.•LAST *. 

.•eiecodn has *. ites 

♦. BEEN . ♦ 

♦ . PilTHTRD -* 



rj/2/c 

♦CPSC6 



(P3INT ROTTOB 
SCALE) 



HO 
FIRST TIflE ONLY 



►♦•♦•CI********** 
i « 

' HOVE BKCOaD • 
' KEY/NO. TO • 

» BUFP8B * 



DELETED 
nECOBD 



CPPNH V FJ/1/E 

««* ♦•gl* ••♦♦*••• 

*CPP«T 



(PBINT BECOBD 
KM/NO.) 



O2-A3*0Q2* 
Q2-B3* HI •-> 

02-GT* * 



.••CPLP1 



• COHPLETB *. 

RECOBD 

♦ . PRINTED -• 



G1 *. 

,* 10RE *. 

THAN Hkt. 

nove SO. 

LBPT 



V CPAV2 
♦•♦•♦Hl*++#*»**** 

• * 

♦ HOVE AIL THAT'S* 
•LBPT TO BUFFER •- 



LOAD & OPEN 

StSLIST 

SBT flOVE FOB 

PHTHTEP SIZE 

i'dlMT SCAL8 AT 

TOP OF PAGE 1 



••♦•♦D2********* 



*RO?S *D£LETED* 
■>• TO BUPFER 



*****F2++***+*** 



I'D AT 2 hECOBD 
COUNT 



CPKV1 

+ OOVE KAX. 

— >* ANOI1NT TO 

• fiurPFR 



r 



pj/Veu 

♦ •••*[j3******a»* 
•CPPKT 

♦ 

>* fPftlST RECORD 

* connt) 



V PJ/I/EU 
•»*»*C3********** 
•CPPBT * 



• (CLOSE SUSLISD • 






.1.. 

* 4 

• F3 * 

♦ i 
• *•• 



* POIBT TO • 

• STSLIST TABLE • 



JJSYP2 



.* ». NO 

•. UNPRINTABLE .*— 
♦.CHARACTER.* 



♦♦••*H3********* 
■>*PKINT THIS PAHT 



PRINTEB 

satoR 



• ••+(fS********* 

* * 

■>*CONTBOL CANCEL • 



*♦♦*♦ 

•O02* 
• CI* 

• * 



7 

♦002* 
• A2* 



8ETUBN 
TC: CALLEB 
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PJ/VE« 



(SPACE 1) 



PAGE 
OVERFLOW 



V PJ/2/D 
•CPovp 



V 
*•••• 
•001* 
• F1* 



BMT2B 



• *••• 
•001* 

• H2« 



•SKIP AND PRTKT 



**»♦•(; !••»•*«*** 



• COKITEKT TO 

♦ VYRTTCAL HEX 



V 

• •••• 

• 001* 

• PI* 



CPSCfl 

• ***CIl********* 
* ESTER « 



UPDATE PAGE 
CODMT 



•*»»C 5** •*•••••* 



HOVE PAGE COOIT* 
TO BdPFBB • 



TJ/1/E 
**»**D1******»** 
♦CPPRT 

* (PRIKT 1ST LIRE 
• OP VERTICAL 



•«**£1«*** **+*# 



HOVE UOBR ABB* 
TO BUFFER 



FJ/1/EQ 



•CPPRT * 

•pitIHT~2lfD~LINE~* 
•OP ?E»TICAL REX* 



PAGE • . J 

OVERFLOW .♦- 



♦YES 



V PJ/2/D1 
•**«H^***a«*«*« 

CPOVF 



V 
***** 
•QQ1* 
» PH 



SKIP AND PBIST 



V 

♦ ♦»*« 

•001* 

• pi* 



FNTEB 



•BUILD SCALE IS * 
• BUPPM • 



••»*•£ )*****•** < 

•SET TO SKIP TO 

* LIUE 1 AFTER 

• PRIKT 



' FJ/2/C1 



(PRINT BOTTM 
SCALE) 



•SET TO SPICK 2 * 
•AFTER PRINTING * 



V TJ/2/A5 
t*+*»H3********** 
•CPSCT * 

•_-_ __• 

• (P8INT TOP * 

* SCALE) • 



CPDf.l 
• ***J.1*****«**< 

* iETUKN 

► 

TO: CALLER 



.««*» 



•CPPBT 



• (PBIHT SCALE) * 



•***F5**»»***+* 



TO: CALLBB 
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COfiBC 

****i1********* 

* i 

* RBTEfl < 



CORCC 

*****B1**** ****** 

•SATE XB1 DTP* 3 • 

• DBTBRBIBE * 

♦ OP EMTIO* ♦ 



C0H00 3 

*****CH 



•DETBBKNB CORE • 
• SIZE BBCESSABT * 
•70S PHIUT OUT * 



51 



,♦ 
30* 

'*. 



"f?T 



*****g1**** ****** 

• DETEBBIBB * 
•&DDITIOE1L COBB* 

• BBBDBD 701 ♦ 

• output dtp ♦ 



COROO« 

.*' 



*•** 

• • 

• B3 * 

• • 
• ♦*< 



Bl 



.* PBIHT *. IBS 

». OMLT .* ■ 

•. .* V 

•„ .* ***** 

♦. .* *002* 

♦ KO * 11* 

• * 



POT RECORD 



D« *. 

.* MBS •• 
.•OOTPUT BOP 



BO 



.*. 




D5 •. 




*. 




*. 


TBS 


PRlRT 


* . 


,* 


1 


.* 




*. • • 


♦ 


* no 


• *•■• 


*•*• 


•002* 



*•«• 



■>♦ F2 ♦ 



COBEPR BOTE 1 



EHOOGH 
COBB 



.* 
,* 
YES 



CDRSET 

*****G1* *••****•• 



1 : - 

• I** 



HBBTBT • • 
WILT/ • • ■ 
• SISJ.OS) * • 



73 •. 
.♦ 
.* 
->•. BBTM 



BO 



• IflHRDIITB 

■>• CfcHCRL 



**•••******«**• 



► 72 < 

*•*• 



• SET 807FBB: 

• B — 



DXLD DTP'S, 

open iwpdt 

PILES 



• HI ♦ 

• * 
*••* 

CORGBT t 



* IBS 



»***G3********* 

■ « 

BBTDBM < 



TO: CAILBB 



SET RECORD 



*- ■* 1 



BOTE 1: SEE IBB SISTEtlS/3 DISK 
SYSTEMS SYSTEB fOBTBOL 
PRQCHfl L03IC WAB01L 
SY21-0502 



• HO *»•* 

* 72 • 

• • 
**•* 



[ED 07 *- TES 
PILB -* 



*. .* *002* 

• BO * A3* 



• B3 * 

* * 
• ••• 



Chart FK (Part 1 of 2). Copy Multi-Volume Direct Files Phase 



Program Organization 6-43 



*••*•! 1*+****««C* 

* SAVF RRTIJRK * 
•ADDNESS KESTONE* 

■>*XB1 TT POINT TO* 

* CONTROL • 

* JNFOaMATIOK • 



•002* 

• *3* 



INDICATE LAST * 
1ST* 



■>*UFCUkD TO f£ 
* ROUTINE 



•O0T» 
• D5» 
***** 
01-B3 
CPPTAD 



' TS THE * 
END OF FILE 
. REACHED .< 



FJ/01/B" 



PftlHT 
ODICATEO 



>* 

• PRIHT HECOBD 



>* El * 

• * 
*•*• 



*****d *****♦♦**< 

* INCREMENT ' 

* RECORD COUNT, < 

* DETBRHINE < 

* RECORD TO BE ' 

* PK0CES5ED « 
*•*******««•»*•*< 



COECHT 4 
• *••*£ )**< 



CLOSE irtPyT 
fTLE 



»» THJi5 PEIUAV .""■ 


t 


*. .* 


***** 


*. »* 


♦ 001* 


* rss 


• H1» 


**** 




• • 


• • 




* 


• El *-> 






» * 






**** 


EJ/1/E1 




***•*£ 1* •*•****»* 

•SCOPPL • 






• * 




• PRIST 1 


1ECOBD * 





DISK 
INPUT 



• CLOSE ODTPDT 

>* file 



****my^ ********** 

* * * * 

* • HENTBI • • 

* * 1HM.T/ » • 

* • iltSLOG) * * 



***** 

* H1« 

* • 



TO; JSSPEJ 

EHD-OF-OOD 
TBARSIENT 



hl!T>- 1: S3E ia« SYSTBH/3 DISK 
SIT ST PIS SYSTEM CONTROL 
PHQ^nAH LOGIC HAHtllL 
SX21-0502 



Chart FK (Part 2 of 2). Copy Multi-Volume Direct Files Phase 



6-44 



COEOJ 

**+*13*+***w*** 
* BKTER ' 



***B3 ****** ****** 



RE1D 'COPTO 1 
PI ?ROH JSV\ 



CVLSQ ¥ 

*5* + *C 3*4 ***»•*+* 

•MOVE I« PASSED * 

* FILE TYPE HMD * 
•*OWHX SBQOEHCS* 

* SOHBEfi • 

* i* 



* + *I>3 ****** ****** 
ITE PI Bj 



* WRITE.P1 BACK 

1* 



»**B3********* 
EXIT i 



TO: JJSPEJ 

END-OP-JOB 
TBJLBSIEHT 



Chart FL. End of Job Phase 
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Section 4. Data Area Formats 



This section describes the format and contents of the 
control blocks, tables and data areas used by the IBM 
System/3 Copy /Dump program. This section is divided 
into three parts: common data areas, copy pack data 
areas, and copy file data areas. 



COMMON DATA AREAS 

The common data areas are used by the common function. 

Tables 



CSCTL Table 

CSCTL is an 83-byte table of constants containing control 
statement parameter information (Figure 6-6). This 
table is built by the Control Statement Analysis phase and 
maintained by the Root phase. It is located at the begin- 
ning of the Root phase. 



Byte 


Label 


Contents 





CTYP 


Type of control statement 

1 . P = Copy pack 

2. F= Copy file 


1 


CtMO 


Type of copying 

1. I = Intermediate 

2. b » Non-intermediate 


2 


CFM 


'FROM' Q code 


3 


CTO 


'TO' Q code 


4 


CSROG 


Reorganization option 

1. Y = Yes 

2. N-No 


5 


CSOPT 


Output option 

1. P = Print 

2. D=Disk 

3. B - Both 


6 


CSDEL 


D = Delete 


7 


CSCHR 


Chracter to be deleted 


8-9 


CSPOS 


Record position used to check for delete 


10 


CSTYP 


Select option 

1 . K = Key Select 

2. R = Record Select 


11 


CSLG 


Length of key 


12-40 


CSFKY 


Key FROM 


41-69 


CSTKY 


Key TO 


These bytes are filled in by the Copy File Initialization phase 
($COFIN) after a pre-open. 


70 

71 


CTYPE 
CFMVF 


Type of file 
1.1= Index 

2. C= Consecutive 

3. D= Direct 

M - Multi-volume file 


72 


CFEOF 


E = End of file 


73-74 


CRECL 


Record length 


75-76 


CORE2 


Storage size of this program level 


The following bytes are maintained for the Print phase. 


77 


CFDP 


This record to be deleted 

1. N,= No 

2. Y-Yes 


78 


CFPRE 


Last record to be printed 

1. N = No 

2. Y = Yes 


7^80 


CFPA 


Address of first byte of record 


81-82 


CFENDC 


End of storage 



Figure 6-6. CSCTL Table of Constants 
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CSERRB Table 

CSERRB is a 7-byte parameter table passed to the Halt/ 
SysJog transient for halts due to errors (Figure 6-7). It is 
located in the Control Statement Analysis phase. 



CSCTLP Table 

CSCTLP is a 5-byte table used by the Halt/Syslog transient 
to log control statements, ft is located in the Control State- 
ment Analysis phase. The byte positions and contents for 
this table aie: 



Byte 


Contents 


0-1 


X'0000' - Indicates output only; log 
control card 


2 


X'60* - Indicates 96-by te length 


34 


Address of the I/O area 


CSSYNT Table 





CSSYNT is an 8-byte table of addresses passed to the 
Keyword Syntax Scan routine by the Control Statement 
Analysis phase. It contains the address of the area to be 
scanned, the output area and the keyword parameter 
table (Figure 6-8). It is located in the Control Statement 
Analysis phase. 



Byte 


Label 


Contents 





CSERRB 


B'l 10101 10'- Indicates halt and 
system print 


1 


None 


C'C — Indicates Disk Copy/Dump 
program 


2-3 


CSHALT 


Disk System — Characters to be used 
for halt display lights 

Model 6 — Code to be converted for 
halt display lights 


4 
5-6 


CSOPTN 
CSSUBM 


Operator options 
X'01 ' = Immediate cancel 
X'02 r = Control cancel 
X'04' « Retry 
X'08' = Proceed 

C'btt' — Indicates sub message area 



Figure 6-7. CSERRB Halt Table 



Byte 


Label 


Contains 


0-1 


CSIOBG 


Address of where to start scan 


2-3 


CSIOED 


Address of where to end scan 
(CSCARD+95) 


4-5 


None 


Address of scan routine output area 
(CSSYOT) 


6-7 


CSTBLS 


Address of keyword parameter table 



Figure 6-8. CSSYNT Address Table 



648 



CSPKTL Table 



CSYSIN Table 



CSPKTL is a 10-byte keyword parameter table containing 
the parameters from the COPYPACK and SELECT control 
statements. If a COPYPACK or SELECT control statement 
is read, the address of CSPKTL is placed in the table 
CSSYNT. CSPKTL is located in the Control Statement 
Analysis phase. The byte positions and contents for this 
table are: 



Byte 


Contents 


0-3 


X 4 14' 


4 


'FROM' 


5-6 


X*22' 


7 


TO' 


8-9 


X'FFFF' 


CSFILT Table 





CSFILT is a 27-by te keyword parameter table containing 
the parameters from the COPYFTLE control statement. 
If a COPYFILE control statement is read, the address of 
CSFILT is placed in CSSYNT. CSFILT is located in the 
Control Statement Analysis phase. The byte positions and 
contents for this table are: 



Byte 


Contents 


0-5 


X'16' 


6 


'OUTPUT 


7-11 


X'25' 


12 


'REORG' 


13-18 


X'36' 


19 


'DELETE' 


20-23 


X*44' 


24-25 


'WORK 1 


26 


XTFFF 



CSYSIN is a 7-byte table used to read control statements 
from SYSIN. It is located in the Control Statement 
Analysis phase. The byte positions and contents for this 
table are: 



Contents 

XW - Operation code 
Address of I/O area (CSC ARD) 
Address of I/O area (CSCARD) 
Address of work area (CSYSWK) 



Byte 



1-2 

34 

5-6 

Buffers 



CSSYOT Output Buffer 

CSSYOT is a 96-byte output buffer used by the Keyword 
Syntax Scan routine to pass a modified parameter list to 
the Control Statement Analysis phase. 



CSCARD Input Buffer 

CSCARD is a 96-byte input buffer containing the control 
statement images. It is located at the end of the Control 
Statement Analysis phase. 
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COPY PACK DATA AREAS 



Tables 



The following data areas are used by the copy pack 
function. 



CDCTL Table 



CDCTL is a 6-byte table located in the Initialization phase. 
See Figure 6-9 for its contents. 



Control Blocks 



CDPIOB Control Block 



This control block is used by the Main Data Transfer phase. 
The Main Data Transfer phase uses CDPIOB to read track 
and 1 from the input pack and write it on the output 
pack, and to read data beginning at cylinder 4 from the 
input pack and write it on the output pack. 



Byte 


Label 


Contents 


0-1 


CDPISC 


Address of constant area built by the 
Keyword Syntax Scan routine 


2 


CDPI1S 


Input disk size 


3 


CDPIOS 


Output disk size 


4-5 


CDPIOA 


Size of I/O buffer CDPMBF 



Figure 6-9. CDCTL Table 



CDIIOB Control Block 

CDIIOB is used by the Intermediate phase to read the in- 
put pack located on the removable disk on drive on (Rl). 



COPHLT Table 

COPHLT is a 7-byte halt table passed to the Halt/Syslog 
transient from the Intermediate phase (Figure 6-10). 



CDOIOB Control Block 

CDOIOB is used by the Intermediate phase to write the 
output pack located on the removable disk on drive one 
(Rl). 



CDFIOB Control Block 

CDFIOB Control Block is used by the Intermediate phase 
to read in the volume label and to read/write on fixed 
disk on drive one (Fl). 



Byte 


Label 


Contents 





COPHLT 


B J 11 01 01 10' -Indicates halt and 
system print 


1 


None 


C'C — Indicates Disk Copy /Dump 
program 


2-3 


COPHTX 


Disk System — Characters to be used 
for halt display lights 

Model 6 — Code to be converted for 
halt display lights 


4 


COPHTO 


Operator options 
X'OT = Immediate cancel 
X'02' = Control cancel 
X'04' * Retry 
X'08' - Proceed 


5-6 


COPHTM 


C'feJto' — Indicates submessage area 



Figure 6-10. COPHLT Halt Table 
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CERRTB Table 

CERRTB is a 7-byte halt table passed to the Halt/Syslog 
transient from the Initialization phase (Figure 6-11). 



COPY FILE DATA AREAS 

These data areas are used by the copy file function. 



Byte 


Label 


Contents 





CERRTB 


B' 11 01 01 10'- Indicates halt and 
system print 


1 


None 


C'C — Indicates Disk Copy/Dump 
program 


2-3 


None 


Disk System — Characters to be used 
for halt display lights 

Model 6 — Code to be converted for 
halt display lights 


4 


CDOPTN 


Operator options 
X'OV = Immediate cancel 
X'02' = Control cancel 
X'04' = Retry 
X'08' = Proceed 


5-6 


CERM 


C'W — Indicates submessage area 



Control Blocks 



CFIN Control Block 



Figme6-ll. CERRTB Halt Table 



CFIN located in the Initialization phase, is the DTF control 
block for the input file. The file attributes and the 
record length are filled in by data management. 



CFOUT Control Block 

CFOUT is the DTF control block for the output file. It is 
located in the Initialization phase. 



CFIOB Control Block 

CFIOB is the IOB used to read the volume label. It is 
used by the Intermediate Control, Intermediate Reorgan- 
ization, Intermediate Non-Reorganization, and Intermediate 
Consecutive phases. 



Buffers and Work Areas 



CDPIBF I/O Buffer 



CDPIBF is a 256-byte disk input/output buffer located in 
the Initialization phase. 



CF1DTF Control Block 

CFIDTF is the DTF control block for the fixed disk on 
drive one (Fl). It is located in the Intermediate Control 
phase. For the format and contents of a DTF, see IBM 
System/3 Disk Systems Data Management Input/Output 
Supervisor Logic Manual, S Y2 1-0512. 



CDPMBF I/O Buffer 

CDPMBF is a disk input/output buffer used by the 
Main Data Transfer phase. This area has a default size 
of 3,072 bytes for half track reads unless otherwise 
specified. CDPMBF is located in the Main Data Transfer 
phase. 



CDIBUF I/O Buffer 

CDIBUF is a disk input/output buffer used by the 
Intermediate phase. 
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Tables 



COR HLT Table 



CFERR Table 

CFERRis a 7-byte halt table passed to the Halt/Syslog 
transient from the Simple Copy Files and Initialization 
phases (Figure 6-12). 



Byte 


Label 


Contents 





CFERR 


B'1 10101 10' - Indicates halt and 
system print 


1 


None 


C'C — Indicates Disk Copy /Dump 
program 


2-3 


CFERH 


Disk System — Characters to be used 
for halt display lights 

Model 6 - Code to be converted for 
halt display lights 


4 


CFERO 


Operator options 
X'OV = Immediate cancel 
X'02' = Control cancel 
X'04' = Retry 
X'08' = Proceed 


5-6 


CFERM 


X%W — Indicates submessage area 



CORHLT is a 7-byte halt table passed to the Halt/Syslog 
transient from the Copy Non-Indexed Files phase (Figure 
6-13). 



Byte 


Label 


Contents 





CORHLT 


B'1 10101 10' - Indicates halt and 
system print 


1 


None 


C'C - Indicates Disk Copy/Dump 
program 


2-3 


None 


Disk System — Characters to be used 
for halt display lights 

Model 6 — Code to be converted for 
halt dispfay lights 


4 


CORHTA 


Operator options 
X'OV - Immediate cancel 
X'02' - Control cancel 
X'04' = Retry 
XW - Proceed 


5^6 


CORHTM 


CM' - Indicates submessage area 



Figure 6-13. CORHLT Table 



Figure 6-12. CFERR Table 
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CRIHLTTable 



CHTTB Table 



CRIHLT is a 7-byte halt table passed to the Halt/Syslog 
transient from the Non-Reorganization Indexed Sequential 
Files and Reorganization Indexed Sequential Files phases 
(Figure 6-14). 



CHTTB is a 7-byte halt table passed to the Halt/Syslog 
transient from the Intermediate Control, Intermediate 
Reorganization, Intermediate Non-Reorganization, and 
Intermediate Consecutive phases (Figures 6-15). 



Byte 


Label 


Contents 





CRIHLT 


B'1 10101 10' - Indicates halt and 
system print 


1 


None 


C'C — Indicates Disk Copy/Dump 
program 


2-3 


None 


Disk System — Characters to be used 
for halt display lights 






Model 6 — Code to be converted for 
halt display lights 


4 


None 


Operator options 
X'OV = Immediate cancel 
X'02' = Control cancel 
X'04' ■■ Retry 
X'08' - Proceed 


5-6 


CRIHTM 


C'titt' — Indicates submessage area 



Byte 


Label 


Contents 





CHTTB 


B'11010110- Indicates halt and 
system print 


1 


None 


CC — Indicates Disk Copy/Dump 
program 


2-3 


CHLT 


Disk System — Characters to be used 
for halt display lights 

Model 6 - Code to be converted for 
halt display lights 


4 


None 


Operator options 
X'01' = Immediate cancel 
X'02' ■ Control cancel 
XW * Retry 
X'Q8' - Proceed 


5-6 


CSUB 


C'bJb' — Indicates submessage area 



Figure 6-14. CRIHLTTable 



Figure 6-15. CHTTB Table 
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CNOTAB Table 



Buffers and Work Areas 



CNOTAB, a 5-byte table passed to the Halt/Syslog 
transient, is used to log error messages on the logging 
device. It is located in the Copy Non-Indexed Files 
phase. 



CPUST Table 

CPLISTis a 7-byte parameter table passed to SYSUST 
by the Print phase (Figure 6-1 6). It is located in the 
Print phase. 



Byte 


Label 


Contents 





CPOP 


X'10' ■ Operation code 


1 


CPSKBP 


X'OV = Skip before printing 


2 


CPSKBP 


X'OO' a Space before printing 


3 


CPSKAP 


X'OO* - Skip after printing 


4 


CPSKAP 


X'01 ' - Space after printing 


&€ 


CBFAD 


Address of logical record 



COIEND Buffer 

COIEND contains one logical record. The size of the buffer 
is variable and is determined by the record length. It is 
located in the Non-Reorganization Indexed Sequential 
Files and the Reorganization Indexed Sequential Files 
phases. 



CPBUF Buffer 

CPBUF is a print buffer passed to SYSLIST by the Print 
phase. This 106-byte buffer contains a logical record. 



CFVLBF Buffer 

CFVLBF is a 256-byte area used to read in the volume label. 
It is used by the Intermediate Control, Intermediate 
Reorganization, Intermediate Non-Reorganization, and 
Intermediate Consecutive phases. 



CON END Record Area 



Figure 6-16. CPUST Table 



CONEND contains the I/O area. ITie size of the area is 
determined by main storage size. CONEND is located in 
the Simple Copy Files phase. 



CPWRK Conversion Area 

CPWRK is a work area used by the Print phase to convert 
unprintable characters to vertical hexadecimal. 
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PART VII 
LIBRARY MAINTENANCE 
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Section 1. Introduction 



The library Maintenance program processes object and 
source libraries in any one of these ways: 

• Allocates space for the library. 

• Deletes library entries. 

• Copies the library or entries within the libraries. 

• Renames the library entries. 

These functions are provided by four control statements: 

1. //ALLOCATE 

2. // DELETE 

3. // COPY 

4. // RENAME 

The Dbrary Maintenance program scans the control state- 
ments and passes control to a phase that performs the 
desired task. When all of the requested functions have 
been completed, control is passed to the scheduler. 



SYSTEM REQUIREMENTS 

The Library Maintenance program uses the following 
minimum system configuration: 

Disk System 

m IBM 5410 Processing Unit, Model Al 2 

• IBM 5203 Printer, Model Al 

• IBM 5424 Multi-Function Card Unit, Model A 

• IBM 5444 Disk Storage Drive, Model 2 
Model 6 

• IBM 5406 Processing Unit, Model B2 (Includes the key- 
board with eight command keys) 

• IBM 5213 Printer, Model 1 

• IBM 5444 Disk Storage Drive, Model 2 
The following optional features are supported: 

• IBM 5496 Data Recorder, Model 1 with System/3 Model 
6 On-line Feature (Used as the Sysin device) 

t IBM 2265 Display Station, Model 2 (Cathode Ray Tube; 
used as Syslog device with IBM 5406 Processing Unit, 
Models B3 and B4 only) 
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Section 2. Method Of Operation 



When the scheduler passes control to the library Main- 
tenance program, the Mainline librarian phase ($MAINT) 
receives control. This phase processes five types of 
library maintenance control statements: 



1. 


// ALLOCATE 


2. 


// RENAME 


3. 


// DELETE 


4. 


// COPY 


5. 


//END 



The Mainline Librarian phase reads control statements 
one at a time into an input buffer (LEBUFR). The 
buffer stores the statement image; from this buffer a 
control area (CAREA) and a parameter list of valid key- 
words (LELUXP) are built. The Mainline librarian 
phase then calls the Keyword Syntax Scan routine 
(SSRDS1) which analyzes the statement image and 
returns a data area of valid parameters (LERETO) to the 
Mainline librarian. The Mainline librarian uses this 
data area to call the correct control statement processor 
(Figure 7-1). 



The Allocate Mainline ($MAAMN) passes control to one 
of three phases: 

• Allocate Object Library ($MAAOL) builds the object 
section of the system directory and allocates the 
scheduler work area (SWA) and roll-in/roll-out area. 

• Allocate Source Library (SMAASL) builds the source 
section of the system directory and chains the source 
directory sectors and library sectors. 

• Track Allocate/Deallocate (SMATAD) updates the 
volume label. 

The Reallocate Mainline phase (SMAAMW), using the 
Find phase (SMAFND) to locate the specified entry in 
either the object or source library passes control to one 
of five phases: 

• Copy Source Library ($MAACS) copies the source 
library onto the work pack. 

• Copy Object Library ($MAACO) copies the object 
library onto the work pack. 

• Copy Work Pack to Object Library (SMARCO) copies 
the object library entries from the work pack to a 
reallocated object library. 

• Copy Work Pack to Source library (SMARCS) copies 
the source library entries from work pack to a re- 
allocated source library. 

• Allocate Mainline (SMAAMN) deallocates and allocates 
libraries. 



// ALLOCATE CONTROL STATEMENT 

If the Mainline librarian has read a // ALLOCATE con- 
trol statement, control is passed to the Allocate Syntax 
Scan phase (SMAALS). This phase uses the control area 
(CAREA), volume label, and the Allocation Initiator 
phase ($$STAI) to check for the required parameters on 
the // ALLOCATE statement and to determine if the 
specified functions can be performed. If the specified 
functions can be performed, the Allocate Syntax Scan 
phase (SMAALS) passes control to the Allocate Mainline 
phase (SMAAMN) or the Reallocate Mainline phase 
(SMAAMW). 



After processing the // ALLOCATE control statement, 
control is returned to the Mainline librarian which will 
read another control statement. 



// RENAME CONTROL STATEMENT 

If the Mainline librarian has read a // RENAME control 
statement, control is passed to the Rename Control 
Statement Processor (SMAREM). This processor uses the 
Find phase (SMAFND) to check for duplicate entry names 
and to update the library directory to reflect the specified 
new name. Control is then returned to the Mainline 
Librarian which will read another control statement. 
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From 
Scheduler 



h 



Note: See System/3 Disk Systems 

System Control Program Logic 
Manual, SY21 -0502. 



$MAINT Chart GA 

Mainline Librarian Phase 

• Reads control statements 

• Checks statement SYNTAX 

• Calls appropriate processing phase 




If // Rename Statement 



If // Delete Statement 



If // Copy Reader to Source Library 



If // Copy System 
or 



// Copy All Libraries ^^^^^^^^^^^* 

or 
// Copy O. or R. Entries into Object Library I 



If // Copy Source Lib to Source Library 



If // Copy Reader to Object Library (R.) 



$$RDS1 (See Note) 
Keyword Syntax Scan 



$MAREM Chart GM 

Rename Statement Processor 
• Deletes old name and replaces it with 
new name 



$MA0EM Chart GN 

Delete Mainline Phase 
• Delete entry from system directory 
and volume label 



$MACRS Chart GO 

Copy Reader to Source Library 

• Reads source statements or procedures from 
SYSIN device 

• Builds source library and directory entry 



$MADRV Chart GP 

Copy Object Library 
• Creates volume label and object directory 
and writes them on specified disk 

Subroutines 

$MALOH Chart GR Object I ibrary handler 
$MACSL Chart GW Copy source library 
$MACSY Chart GQ Copy system mainline 



$MACSL Chart GW 

Copy Source Library 
• Copies specified source library entries 

to another source library or within the 

same library 



$MACRR Chart GT 

Copy Reader to Object Library \ R.J 

• Reads object statements from SYSIN device 

• Builds object library and directory entry 

Subroutines 

$MALOH Chart GR Object library handler 



Figure 7-1 (Part 1 of 2). Operational Diagram for the Library Maintenance Program 



i 
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If // Copy Reader to Object Library (0.) 



If // Print/Punch 



If //Allocate 



If // End or Error 



I 



$MACRO Chart GV 

Copy Reader to Object Library 1 0.1 

• Reads object statements from SYS IN device 

• Builds object library and directory entry 

— Subroutines 

$MALOH Chart GR Object library handler 



X End of 

EXIT TO A Tn|nsie 

*&** J <SeeN< 



Job 
ient 
Note) 



$MAPPM Chart GX 

Print/Punch Mainline 
• Prints and/or punches: source directory, 
object directory, source library, object 
library 

Subroutines 

$MASRT Chart GY Directory sort 
$MASDP Chart GZ Print source directory 
$MA00P Chart HA Print object directory 
$MASYP Chart HB Print system directory 
$MASPT Chart HC Print/punch source lib- 
rary 
$MAOPT Chart HD Print/punch object 
library 



$$STA I (See Note) 
Allocation Initiator 



$MAALS Chart GB 

Allocate SYNTAX Scan Phase 
m Checks space requirements 
■ Completes SYNTAX check 

If deallocate libraries or if new pack 
or new source allocation ^| 



(otherwise reallocating used pack) 



$MAAMN Chart GC 

Allocate Mainline 

• Deallocates existing libraries, if any 

• Calls appropriate allocate routine 

Subroutines 

$MAAOL Chart GD Allocate object library 
$MAASL Chart GE Allocate source library 
$MATAD Chart GF Track allocate/deallocate 




$MAAMW Chart GG 

Reallocate Mainline 

• Cal Is appropriate phase to copy specified 
library to work pack 

• Cal Is $MAAMN to deallocate library just 
copied 

Subroutines 

$MAAC0 Chart Gl Copy object library 
$MAACS Chert GJ 
$MARC0 Chart GK 



$MARCS Chart GS 



Copy source library 

Copy work pack to object 

library 

Copy work pack to source 

library 



Figure 7-1 (Part 2 of 2). Operational Diagram for the Library Maintenance Program 
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// DELETE CONTROL STATEMENT 



Copy System 



If the Mainline librarian has read a // DELETE control 
statement, control is passed to Delete Mainline (SMADEM). 
Delete Mainline uses the Find phase (SMAFND) to delete 
the specified library entries in either the object, source, 
or both object and source libraries and to update the 
system directory. Control is then returned to the Main- 
line Librarian which will read another control statement. 



// COPY CONTROL STATEMENT 

The Mainline librarian also acts as the Copy Mainline 
and determines which of these eight functions is to be 
performed: 

1 . Copy reader to source library. 

2. Copy system. 

3. Copy reader to object library (R. entries). 

4. Copy reader to object library (0. entries). 

5. Copy all libraries. 

6. Print/punch directory or library. 

7. Copy source library to source library. 

8. Copy 0. entries or R. entries to object library. 

Copy Reader to Source Library 

Control is passed from the Mainline Librarian to the Copy 
Reader to Source library phase (SMACRS). This phase 
copies the specified program from the reader if (1) space 
is available and (2) the requested name is unique to the 
source library. The Source Put phase ($$SYSP) is used to 
compress the source statement and build the entry. Con- 
trol is then returned to the Mainline librarian which will 
read another control statement. If the requested name is 
not unique, the duplicate named entry can be deleted 
following a halt as long as a T' does not replace a 'F type 
entry. 



Control is passed from the Mainline librarian to Copy 
Object Library - Disk to Disk phase (SMADRV). 
Control is then passed from the Mainline Librarian to the 
Copy System Mainline phase (SMACSY). This phase 
copies the following three items from one system disk 
pack to the other specified disk pack: 

• Initial Program Load (IPL) Bootstrap program. 

• System configuration record. 

• Nucleus Initialization program (NIP). 

SMADRV then calls the Object Library Handler phase 
($MA0LH) which locates available space for the entry. 
SMAOLH and the Find phase (SMAFND) are used to 
copy all $$ entries. The Update PTF Log Sector phase 
($MAL0G) updates PTF log sectors after the copy. 

Upon completion, control is returned to the Mainline 
Librarian which will read another control statement. 



Copy Reader to Object Library (R. Entries) 

Control is passed from the Mainline Librarian to the 
Copy Reader to Object library (R. Entries) phase 
(SMACRR). This phase uses the Find phase ($MAFND) 
to locate the specified entry and the Object library 
Handler (SMALOH) to locate available space for the 
entry. The Readjust Extended End of Object library 
phase ($MAEXE) determines the number of sectors that 
must be added to the object library. This phase then: 

1 . Reads and compresses object records from the 
SYSIN device. 

2. Builds an object library entry from the compressed 
cards. 

3. Builds a directory entry for the object library and 
updates the system directory. 

Control is then returned to the Mainline librarian which 
will read another control statement. 
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Copy Reader to Object Library 10. Entries) 

Control is passed from the Mainline librarian to the Copy 
Reader to Object library (0. Entries) (SMACRO). This 
phase uses the Find phase (SMAFND) to Locate the entries 
and the Object library Handler (SMAOLH) to locate 
available space for the entries. The Readjust Extended 
End of library phase (SMAEXE) determines the number 
of sectors that must be added to the object library. The 
Update PTF Log Sector phase (SMALOG) updates PTF 
log sectors after the copy. This phase then: 

1 . Reads and compresses object records from the 
SYSIN device. 

2. Builds the object library. 

3. Builds the directory entry for the object library- 

Control is then returned to the Mainline librarian which 
will read another control statement. 



Copy All Libraries 

Control is passed from the Mainline librarian to the Copy 
Object library - Disk to Disk phase (SMADRV). This 
phase uses the Find phase (SMAFND) to locate the 
specified entries and the Object library Handler (SMAOLH) 
to locate available space for the library entries. This phase 
copies the object library entries to the specified disk. The 
Readjust Extended End of library phase (SMAEXE) 
determines the number of sectors to be added to the 
object library. The Update PTF Log Sector phase 
(SMALOG) updates PTF log sectors after the copy. The 
Copy System Mainline phase (SMACSY) copies the system 
directories. Control is then passed to the Copy Source 
Library - Disk to Disk phase (SMACSL), which copies the 
source library entries to the specified disk. Control is 
then returned to the Mainline librarian which will read 
another control statement. 



• Directory print request. Control is passed to one of 
three phases: 

1 . Print Source Directory (SMASDP). 

2. Print Object Directory (SMAODP). 

3 . Print System Directory (SMASYP). 

• Print/Punch library request. Control is passed to one 
of two phases: 

1 . Print/Punch Source Library (SMASPT). 

2. Print/Punch Object library (SMAOPT). 

Control is returned from the Print/Punch Mainline to the 
Mainline librarian which will read another control 
statement. 

Copy Source Library to Source Library 

Using the Find phase (SMAFND) to locate the specified 
source library entries, the Copy Source library — Disk 
to Disk phase (SMACSL) copies the entries either to 
another source library (renaming them if requested) or 
within the same library (renaming them). Control is then 
passed to the Mainline librarian which will read another 
control statement. 

Copy 0. Entries or R. Entries to Object Libraries 

Control is passed from the Mainline Librarian to the Copy 
Object library — Disk to Disk phase (SMADRV) using 
the Find phase (SMAFND) and the Object Library 
Handler (SMAOLH). This phase copies the specified 
library entries to the specified disk. Control is then re- 
turned to the Mainline librarian which will read another 
control statement. 



Print/Punch Directory or Library 

Control is passed from the Mainline librarian to the 
Print/Punch Mainline (SMAPPM). This phase uses the 
Find phase (SMAFND) to locate the specified entries and 
the Directory Sort phase (SMASRT) to sort the 
directories before they are printed. Each library contains 
a directory which points to the entries within the library. 
Section 4, Data Area Formats, contains the format of the 
object and source library directories. Control is then 
passed from the Print/Punch Mainline depending upon the 
type of request: 



// END CONTROL STATEMENT 

The // END control statement causes the Mainline librarian 
to pass control to the Transient Resolver phase (SSOXRF) 
which resolves the address of all $$ modules and then passes 
control to End of Job transient (SSSPEJ). This transient 
terminates the Library Maintenance program and blanks 
out the transient queue. Control is passed to the Scheduler 
End of Job Deallocation phase (SSTMEJ) which deallocates 
all devices and work areas used by the library Maintenance 
program. 
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Section 3. Program Organization 



The following section contains a description and flowchart 
for each phase. The phases are discussed in the order they 
are mentioned in the Method of Operation section. 



Mainline Librarian Phase ($MAINT) 



• Passes control to the appropriate control statement 
processing phase. 

• Reads the // END control statment and indicates if 
the Transient Resolver phase ($$OXRF) must be called 
to resolve addresses for $$ modules. 



Entry Point: SMAINT 

Storage Map: Figure 7-2 

Chart: GA 

Functions: 

t Reads control statements into input buffer LEBUFR. 

• Builds a control area (CAREA) from the control 
statement parameters. 

• Loads the specified system directories. 

• Passes control to the Keyword Syntax Scan routine 
($$RDS1) to check the functional correctness of the 
control statements. 



Input: Five control statements: 


1. 


// ALLOCATE 


2. 


//RENAME 


3. 


// DELETE 


4. 


//COPY 


5. 


//END 



Output: Partially built control area (CAREA) 



Exit: 

• Normal - End of job transient ($$SPEJ) when the 
// END control statement is read 

• Error - Halt/Syslog transient 
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Supervisor 
Control Area (CARE A) 



Mainline Librarian ($MAINT) 



Keyword Syntax Scan 
Routine {$$RDSD 



Transient Resolver 
Phase |$$OXRF) 



Unused 



Rename Control 
Statement Processor 
Phase {$MA REM) or 

Delete Mainline Phase 
($MADEM) or 

Allocate Syntax Scan 
Phase ($MAALS) or 

Copy Reader to Object 
Library (0. Entries} 
Phase ($MACRO) or 

Copy Reader to Object 
Library (R. Entries) 
Phase ($MACRR) or 

Copy Reader to Source 
Library Phase ($MACRS) or 

Copy Object Library Disk 
to Disk Phase ($MADRV) or 

Copy Source Library Disk 
to Disk Phase ($MACSL) 



Unused 



Note: $MAINT is overlaid by any of the phases it calls. 



Figure 7-2. Storage Map of the Mainline Librarian Phase (SMAINT) 
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Allocate Syntax Scan Phase ($MAALS) 



Passes track size of existent libraries to the control area. 



Entry Point: SMAALS 



Storage Map: Figure 7-3 



Chart: GB 



• Determines if the object library is being allocated with 
SYSTEM- YES; if so, the size of the scheduler work area 
is computed. If the object library is to be reallocated 
or deallocated, the library is checked to ensure that it 
is not on the active SYSRES pack. 



Input: Partially built control area (CARE A) and volume 
label 



Output: Complete control area (CAREA) 



Functions: 

• Checks for required parameters on the // ALLOCATE 
statement. 

• Checks the availability of the specified pack. 

• Checks volume label space requirements. 

• Locates the first available space for libraries if the pack 
does not already contain allocated library space. 



Exit: 

• Normal 

1 . Allocate Mainline phase (SMAAMN) if no work 
pack is required 

2. Reallocate Mainline phase ($MAAMW) if a work 
pack is required 

• Error - Halt/Syslog transient 



Supervisor 



Control Area (CAREA) 



Allocate Syntax 
Scan Phase 
($MAALS) 



Unused 



Allocate Mainline 
Phase ($MAAMIM) or 

Reallocate Mainline 
Phase ($MAAMWI 



Unused 



Note: $MAALS is overlaid by either $MAAMIM or $MAAMW. 



Figure 7-3. Storage Map of the Allocate Syntax Scan Phase (SMAALS) 
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Allocate Mainline Phase ($MAAMN) 



Input: Control area (CAREA) and volume label 



Entry Point: SMAAMN 
Storage Map: Figure 7-4 
Chart: GC 

Functions: 

• Deallocates: 

1 . Source library, 

2. Object library. 

3. Volume label. 

• Passes control to other phases to: 

1 . Allocate libraries. 

2. Reset volume label entries. 



Output: Updated volume label and libraries 



Exit: 

• Normal - Mainline Librarian phase (SMAINT) upon 
completion of specified function 

• Error - None 



Allocate Object Library Phase <$MAAOU 
Entry Point: SMAAOL 
Chart: GD 



® 



Supervisor 



Control Area {CAREA) 



Allocate Mainline Phase ($MAAMN) 



Track Allocate/Deallocate 

Phase ($MATAD) 



Unused 



® 



Supervisor 



Control Area (CAREA) 



Allocate Mainline Phase ($MAAMN) 



Note: $MAAMN calls in other phases depending upon the function to be performed: 

• Deallocate - Insert A is the storage map for the deallocate function. 

• Allocate - Insert B is the storage map for the allocate function. 

Figure 7-4. Storage Map of the Allocate Mainline Phase (SMAAMN) 
7-14 



Allocate Source Library 
Phase <$MAASU or 

Allocate Object Library 
Phase ($MAAOL) or 

Track Allocate/Deallocate 
Phase <$MATAD} 



Unused 



Functions: 

• Builds the object part of the system directory, 

• Allocates a scheduler work area (SWA). 

Input: 

9 System directory 

• Control area (CAREA) 

Output: 

• Updated system directory 

• Allocated object library 

Exit: 

• Normal - Allocate Mainline phase (SMAAMN) 

• Error — None 

Where Used: SMAAMN 

Allocate Source Library Phase ($MAASL) 

Entry Point: SMAASL 

Chart: GE 

Functions: 

• Builds the source part of the system directory. 

• Chains the library sectors together. 

• Indicates the end of the system directory by inserting 
X'FFFF' in the last sector. 



Input: Control area (CAREA) and existing system direc- 
tory 



Output: 

9 Updated system directory 

• Chained library and directory sectors 

Exit: 

9 Normal - Allocate Mainline phase (SMAAMN) 

• Error - Halt/Syslog transient 

Where Used: $MAAMN 

Track Allocate/Deallocate Phase ($MATAD) 

Entry Point: SMATAD 

Storage Map: Figure 7-4 

Chart: GF 

Functions: 

• Turns off reserved library space indicators. 

• Moves in new library start and end addresses. 

• Indicates the tracks reserved for libraries. 

Input: Existing volume label 
Output: Updated volume label 

Exit: 

• Normal — Allocate Mainline phase (SMAAMN) 

• Error — Halt/Syslog transient 

Where Used: SMAAMN 
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Reallocate Mainline Phase (SMAAMW) 
Entry Point: SMAAMW 
Storage Map: Figure 7-5 



Input: 

• IOB 

• Buffer with the directory entries 

• Control area (CAREA) 



Chart: GG 



Functions: 

• Calls the Find phase ($MAFND) to locate the specified 
library. 

• Calls the appropriate phase to copy the specified library 
(object or source) onto a work pack. 

• Calls the Allocate Mainline phase ($MAAMN) to de- 
allocate the library just copied. 



Output: 

• Location of the specified routine in XR1 

• Return code indicating that the routine was not found 

Exit: 

• Normal - Calling phase 

• Error - None 



Input: Control area (CAREA) 



Output: Reallocated source and/or object libraries 

Exit: 

• Normal - Mainline Librarian phase ($MAINT) 

• Error — Halt/Syslog transient 

Find Phase ($MAFND) 
Entry Point: SMAFND 
Chart: GH 

Functions: 

• Locates a specified entry in either the object or source 
libraries. 

• Returns the displacement of the entry to the calling 
phase if the entry was found or returns a code to the 
calling phase indicating that the entry was not found 



Where Used: 

• SMAACS 

• SMAACO 

• SMARCO 

• $MARCS 

• SMAAMW 

• $MAREM 

• SMADEM 

• SMADRV 

• SMAOLH 

• SMAPPM 

• SMACRR 

• SMACRO 

• $MACSL 
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Supervisor 



Control Area (CARE A) 



Reallocate Mainline 
Phase ($MAAMW) 



Find Phase ($MAFND) or 

Copy Source Library 
Phase <$MAACS) or 

Copy Object Library 
Phase ($MAACOI 



Unused 



Reallocate Mainline 
Phase ($MAAMWJ 



Allocate Mainline 
Phase ($MAAMN) 



Allocate Source Library 
Phase ($MAASL) or 
Allocate Object Library 
Phase ($MAAOL) or 
Track Allocate/ Deal locate 
Phase {$MATAD) 



Unused 



Copy Work Pack 
to Source Library 
Phase ($MARCS) or 

Copy Work Pack 
to Object Library 

Phase (SMARCOI 



Unused 



Note: If entries are to be copied, SMAACS, $MAFND, and $MAACO are loaded to copy the source and 
object libraries to a work pack. $MAAMN is then loaded which loads $ MAT AD to allocate the libraries. 
Then $MAASL, $MAAOL, and $MATAD are loaded to allocate new libraries. SMAAMW regains control 
and loads $MARCS and $MARCO to copy to source and object libraries from the work pack to the newly 
created libraries. 



Figure 7-5. Storage Map of the Reallocate Mainline Phase (SMAAMW) 
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Copy Object Library Phase ($MAACO) 



Copy Source Library Phase ($MAACS) 



Entry Point: SMAACO 



Entry Point: SMAACS 



Chart: GI 



Chart: GJ 



Functions: 

• Copies the object library to a work pack when it is 
being reallocated or when the source library is being 
allocated and needs more room. 

• Reserves one or three tracks for the directory entries 
and allocates the remaining space for permanent entries. 

• Places the start address of the work pack directory in 
the control area (CARE A). 



Input: Control area (CAREA) 



functions: 

• Determines the number of directory sectors and chains 
them together. 

• Loads the source library entries onto the work pack 
following the directory entries. 

• Indicates the next available sector for the object library. 



Input: Control area (CAREA) containing pointer to work 

pack 



Output: Object library copied onto specified work pack Output: Source library copied onto the work pack 



Exit: 



Normal - Reallocate Mainline phase (SMAAMW) 
Error - Halt/Syslog transient 



Exit: 

m Normal - Reallocate Mainline phase ($MAAMW) 

• Error - Halt/Syslog transient 



Where Used: SMAAMW 



Where Used: SMAAMW 
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Copy Work Pack to Object Library Phase ($MARCO) 



Copy Work Pack to Source Library Phase ($MARCS) 



Entry Point: SMARCO 



Entry Point: $MARCS 



Chart: GK 



Function: Copies object library entries from the work 
pack to a reallocated object library. 



Input: Control area (CAREA) 

Output: 

• Reallocated object library 

• Updated volume label 

Exit: 

• Normal - Reallocate Mainline phase ($MAAMW) 

• Error - Halt/Syslog transient 



Chart: GL 



Functions: Copies the source library from the work pack 
to a newly allocated source library. 



Input: Control area (CAREA) 

Output: 

• Reallocated source library 

• Updated volume label 

• Updated system directory 

Exit: 

• Normal - Reallocate Mainline phase (SMAAMW) 

• Error - Halt/Syslog transient 



Where Used: SMAAMW 



Where Used: SMAAMW 
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Rename Control Statement Processor Phase ($MAREM) 



Delete Mainline Phase ($MADEM) 



Entry Point: SMAREM 
Storage Map: Figure 7-6 
Chart: GM 

Functions: 

• Builds a parameter list with specified new name. 

• Checks for a duplicate name and aborts if duplicate is 
found. 

• Deletes the old name and replaces it with a new name. 
Input: Control area (CAREA) 

Output: library directory with specified new name 



Entry Point: SMADEM 
Storage Map: Figure 7-7 
Chart: GN 

functions: 

• Deletes specified library entries in the object and/or 
source libraries. 

• Updates the system directory and the volume label to 
reflect the current status of the libraries. 

Input: Control area (CAREA) 

Output: 

• Updated system directory 

• Deleted library entry 

• Updated volume label 



Exit: 

• Normal - Mainline Librarian phase ($MAINT) 

• Error - Halt/Syslog transient 



Exit: 



Normal - Mainline Librarian phase ($MAINT) 
Error - Halt/Syslog transient 



Supervisor 



Control Area (CAREA) 



Rename Control Statement Processor 
Phase ($MAREM) 



Find Phase ($MAFND) 



Unused 



Figure 7-6. Storage Map of the Rename Control Statement 
Processor Phase ($MAREM) 



Supervisor 



Control Area (CAREA) 



Delete Mainline Phase ($MADEM) 



Find Phase ($MAFNDJ 



Unused 



Figuie 7-7. Storage Map of the Delete Mainline Phase ($MADEM) 
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Copy Reader To Source Library Phase ($MACRS) 

Entry Point: $MACRS 
Storage Map: Figure 7-8 



Input: 

• Source statements or procedures 

• Source library on the specified disk pack 



Chart: GO 



Functions: 

• Determines if the requested name already exists in the 
source library. 

• Determines if there is enough space in the source 
library for the program that is to be entered there. 

• Copies the program into the source library. 

• Updates the source and system libraries to reflect the 
entry of the copied, program. 



Output: 

• Copied program in the source library 

• Updated source and system directories 



Exit: 

• Normal — Mainline Dbrarian phase ($MAINT) 

• Error - Hal t/Syslog transient 



Supervisor 



Control Area (CAREA) 



Copy Reader to Source Library Phase 
($MACRS) 



Source Put Routine <$$SYSP) 



Unused 



Figuie 7-8. Storage Map of the Copy Reader to Source Library 
Phase ($MACRS) 
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Copy Object Library - Disk to Disk Phase ($MADRV) 



Functions: 



Entry Point: $MADRV 



Storage Map: This is the first phase called for three 
functions: 

9 Copy system (Figure 7-9) 

• Copy all libraries {Figure 7-10) 

• Copy entries into the object library (Figure 7-1 1) 



Chart: GP 



• Calls the Object Library Handler phase ($MAOLH) to 
locate available space for entry. 

» Calls the Find phase ($MAFND) to locate specified 
entry. 

• Creates the volume label and object directory in storage 
and writes them on the specified disk. 



Input: Control area (CAREA) 

Output: Specified library copy on the specified disk. 

Exit: 

• Normal — Mainline librarian phase (SMAINT) 

• Error - Halt/Syslog transient 



Supervisor 



Control Area {CAREA) 



Copy Object Library - Disk 
to Disk Phase <$MADRV) 



Copy System Mainline 
Phase ($MACSY) 



Unused 



Find Phase {$MA.FNp) 



Object Library Handler 
Phase <$MAOLH) 



Dynamic Buffer to 
the End of Storage 



Update PTF Log Sector 
Phase ($MALOG) 



Unused 



Figure 7-9. Storage Map of the Copy Object Library - - Disk to Disk Phase (SMADRV) for the Copy System Function 
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Supervisor 



Control Area (CAREA) 



Copy Object Library - Disk 
Co Disk Phase <$MADRV) 



Copy System Mainline 
Phase {$MACSYJ 



Unused 



Find Phase !$MAFND) 



Object Library Handle 
Phase ($MAOLH) 



Dynamic Buffer to 
End of Storage 



Update PTF Log Sector 
Phase {$MALOG) 



Readjust Extended 
End of Object Library 
Phase <$MAEXE) 



Unused 



Copy Source Library Disk 
to Disk Phase ($MACSL) 



Find Phase ($MAFND) 



Unused 



Figure 7-10. Storage Map of the Copy Object Library - - Disk to Disk Phase (SMADRV) for the Copy All Libraries Function 



Supervisor 



Control Area (CAREA) 



Copy Object Library - Disk to Disk Phase <$MADRV) 



Find Phase <$MAFND) 



Object Library Handler Phase ($MAOLH) 



Dynamic Buffer to the End of Storage 



Figure 7-1 1. Storage Map of the Copy Object Library - - Disk to 
Disk Phase (SMADRV) for the Copy Entries to 
Object Library Function 
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Copy System Mainline Phase ($MACSY) 



Functions. 



Entry Point: SMACSY 

Storage Map: Figure 7-9 

Chart: GQ 

Functions: Copies the following from one system disk 
pack to another specified disk pack: 

1 . Initial Program Load (IPL) Bootstrap program. 

2. System configuration record. 

3. Nucleus Initialization program (NIP). 

Input: Control area (CAREA) 



• Loads an entry into the object library from either the 
reader or from another object library. 

• Checks for available space in the object library unless 
an R. entry is coming from the reader to the object 
library. 

• Dynamically allocates needed space when adding a 
temporary entry to the object library. 

• Checks for duplicate entry names and deletes the old 
entry name when possible. 

• Finds the least amount of available space when adding 
a permanent entry. 

• Deletes temporary entries when adding permanent 
entries. 

• Updates the control area (CAREA) to reflect the ad- 
dresses of the added/deleted object library entries. 



Output: The IPL Bootstrap program, system configuration 
record, and Nucleus Initialization program are copied from 
the current system disk pack to the other specified disk 
pack. 



Exit: 

• Normal - Copy Object library — Disk to Disk phase 
(SMADRV) 



• Error - Halt/Syslog transient 



Input: 

• XR1 points to an area in which the FIND parameter 
list will be built 

• XR2 points to control area CAREA 



Output: 

• Address of the object library entry in the control area 

• Object library dynamically increased if necessary 



Exit: 

• Normal — Calling routine 

• Error - Halt/Syslog transient 



Object Library Handler Phase ($MAOLH) 



Entry Point: SMAOLH 



Chart: GR 



Where Iked: 

• SMADRV 

• SMACRR 

• SMACRO 
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Update PTF Log Sector Phase ($MALOG) 



Chart: GT 



Entry Point: $MALOG 



Chart: GS 



Function: 

t Updates the PTF log sector following a delete or copy. 

• If a module with a PTF applied to it is deleted, the PTF 
is also deleted. All of these PTFs will be deleted; the 
others will be left adjusted. 

• Following a copy, all PTFs pertaining to the modules 
copied will also be copied onto the beginning of the 
PTF log sector; all others will be right adjusted. If the 
sector is full, the PTFs on the right end will be lost. 



Input: PTF log sector and control area 
Output: Updated PTF log sector 

Exit: 

t Normal — Calling routine 

• Error - Halt/Syslog transient 

Where Used: 

• SMADRV 

• $MACRO 

• $MADEM 



Copy Reader to Object Library (R. Entries) Phase 
($MACRR) 



Entry Mnt: $MACRR 



Storage Map: Figure 7-12 



Functions: 

• Reads object statements from the SYSIN device. 

• Compresses each statement into 64 bytes. 

• Builds an object library from the compressed statements 
(four statements per sector). 

• Builds a directory entry for the object library stating 
the number of sectors, type, name, disk address, and 
attribute (temporary or permanent). 



Input: Object statements (R. entries) read from SYSIN 
device. 



Output: R. entry in the object library 

Exit: 

• Normal — Mainline Librarian phase (SMAINT) 

• Error - Halt/Syslog transient 



Supervisor 



Control Area (CAREA) 



Copy Reader to Object Library (R. Entries) 
Phase ($MACRR) 



Find Phase ($MAFND) or 

Readjust Extended End of Object Library 

Phase ($MAOLH) 



Object Library Handler Phase 



Unused 



Figure 7-12. Storage Map of the Copy Reader to Object Library 
(R. Entries) Phase ($MACRR) 
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Readjust Extended End of Object Library Phase ($MAEXE) 

Entry Point: SMAEXE 
Chart: GU 

Functions: 

• Reads in the volume label. 

• Determines the allocated end of the object library. 

• Determines the number of tracks and sectors that need 
to be added to the allocated library end in order to 
contain the temporary object library entries. 

• Updates both the volume label and system directories. 
Input: Volume label 

Output: 

• Updated volume label 

• Updated system directory 

Exit: 

• Normal - Calling phase 

• Error - Halt/Syslog transient 



Copy Reader to Object Library (O. Entries) Phase 
($MACRO) 



Entry Point: SMACRO 



Storage Map: Figure 7-13 



Chart: GV 



Functions: 

• Reads the header control statement and uses the infor- 
mation to build a directory entry. 

■ Reads, compresses, and inserts the object records into 
the object library. 

• Inserts the directory entry into the volume label when 
the // CEND control statement is read. 

• In following text, column descriptions indicate the 
format of the header, text, relocation dictionary, and 
end statements for an object directory O. type module 
being placed in the object library. 



Input: 

• Header control statement 

• Object records 

• // CEND control statement 



Where l&ed: 

• SMACRR 

• SMACRO 

• SMADRV 



Output: 

• O. entry in the object library 

• Updated volume label 

Exit: 

• Normal — Mainline Librarian phase (SMAINT) 

• Error - Halt/Syslog transient 
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The following are descriptions of the header, text, reloca- 
tion dictionary, and end statements for an object directory 
0. type module. 



Header Statement 

Column 

1 

2-4 

5 

6-8 

9-14 

15-17 

18-21 

22-23 

24-27 
28-29 
30-33 
34-35 
36-39 
40-41 
42-45 
46-85 
86-88 
89-92 
93-96 



Contents 

H 

Blank 

(character O) 

Blank 

Name from the first TITLE card 

Blank 

0000 (character zeros) 

Number of text sections in hexa- 
decimal 

Link edit address in hexadecimal 

Displacement of RLD in hexadecimal 

SC A in hexadecimal 

Core size in hexadecimal 

Attributes in hexadecimal 

Level in hexadecimal 

Total number of sectors in hexadecimal 

Blank 

Self check bytes 

First four characters of module name 

Sequence number (always 0001) 



Text Statement 




Column 


Contents 


1 


T 


2 


Length of text minus one 


3-4 


Relocated address of first text byte ir 
card 


5-85 


Text expanded into 4 for 3 format 


86-88 


Self check bytes 


89-92 


First four characters of module name 


93-96 


Sequence number 



Relocation Dictionary Statement 



Column 

1 

2-4 

5-85 

86-88 

89-92 

93-96 



Contents 

R 

Blank 

Blanks and RLDs 

Self check bytes 

First four characters of module name 

Sequence number 



♦Columns 2-85 are in 4 for 3 format 



End Statement 




Column 


Contents 


1 


E 


2-35 


Blank 


36-60 


The characters 'LAST' 


61-85 


Blank 


86-88 


Self check bytes 


89-92 


First four bytes of module name 


93-96 


Sequence number 



Program Organization 7-27 



Copy Source Library - Disk to Disk Phase ($MACSL) 



Entry Point: SMACSL 



Storage Map: Figure 7-14 (see Figure 7-10 for the copy all 
libraries function) 



Chart: GW 

Functions: 

• Copies specified source library entries to another disk 
source library or within the same library. 

• Checks all new entry names for duplication. 

• Deletes duplicate entry names when possible. 



Supervisor 



Control Area (CAREA) 



Copy Reader to Object Library (0. Entries) 
Phase ($MACRO) 



Find Phase (SMAFND) or 
Update PTF Log Sector Phase ($MALOG) or 
Readjust Extended End of Object Library 
Phase ($MAEXE) 



Object Library Handler Phase ($MA0LH) 



Unused 



Figure 7-13. Storage Map of the Copy Reader to Object Library 
(0. Entries) Phase (SMACRO) 



Input: 

• Control area (CAREA) 

• Volume labels 

Output: Updated source library 

Exit: 

• Normal - Mainline Librarian phase (SMAINT) 

• Error — Halt/Syslog transient 



Supervisor 



Control Area (CAREA) 



Copy Source Library - Disk 
to Disk Phase ($MACSL) 



Find Phase <$MAFND) 



Unused 



Figure 7-14. Storage Map of the Copy Source Library - - Disk to 
Disk Phase ($MACSL) 
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Print/Punch Mainline Phase ($MAPPM) 



Entry Point: $MAPPM 



Storage Map: Figure 7-15 shows the directory print 
function. Figure 7-16 shows the library print/punch 
function. 



Chart: GX 

Functions: Prints and/or punches: 

1 . Source directory 

2. Object directory 

3. Source library 

4. Object library 



Supervisor 



Control Area (CAREA) 



Print/Punch Mainline Phase t$MAPPM) 



Find Phase ($MAFND) 



Print/Punch Source Library Phase 

($MASPT) or 

Print/Punch Object Library Phase 

{MAOPTI 



System List Printer ($$SYP1f and/or 
System List Punch ($$SPC1) 



Unused 



Figure 7-16. Storage Map of the Print/Punch Mainline Phase 
($MAPPM) for the Library Print/Punch Function 



Supervisor 



Control Area (CAREA) 



Print/Punch Mainline 
Phase ($MAPPM) 



Print System Directory 
Phase l$MASYP) 



System List 
Printer ($$SYP1) 



Unused 



Directory Sort 
Phase ($MASRT> 



Unused 



Print Source Directory 
Phase ($MASDP) 



System List 
Printer ($$SYP1) 



Unused 



Directory Sort 
Phase <$MASRT) 



Unused 



Print Object Directory 
Phase <$MAODP) 



System List 
Printer ($$SYP1) 



Unused 



Figure 7-15. Storage Map of the Print/Punch Phase ($MAPPM) for the Directory Print Function 
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Input: XR1 points to a control area specifying the re- 
quested module. 



Print Source Directory Phase <$MASDP) 



Output: Printed and/or punched module 



Entry Point: SMASDP 



Exit: 

• Normal - Mainline Librarian phase ($MAINT) 

• Error - Halt/Syslog transient 



Chart: GZ 



Functions: Prints out the contents of the source directory. 



Directory Sort Phase ($MASRT) 
Entry Point: SMASRT 
Chart: GY 



Input: XR2 contains the address of the source directory. 



Output: One printed line of formatted information for 
each directory entry. 



Functions: 

• Sorts all entries in a source or object directory. 

• Returns the address of the sorted entries to the calling 
routine via XR2. 

Input: 

• XR1 points to the control area (CAREA) 

• XR2 points to letter (object library to be sorted) or 
S (source library to be sorted) 



Output: XR2 points to the address of the first sector 
sorted 



Exits: 

• Normal - Print/Punch Mainline phase ($MAPPM) 

• Error 

t Halt/Syslog transient if retry operation is not 
specified 

• Mainline librarian phase ($MAINT) if RETRY 
operation is specified 



Where Used: SMAPPM 



Exit: 

• Normal - Calling routine 

• Error - Halt/Syslog transient 



Where Used: 

• $MASPT 

• SMAOPT 
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Print Object Directory Phase ($MAODP) 



Print System Directory Phase ($MASYP| 



Entry Point: SMAODP 



Entry Point: SMASYP 



Chart: HA 



Chart: HB 



Functions: Prints out the object directory. 

Input: 

• Contents of the object library 

• Address of the directory in a parameter list pointed to 
byXR2 

• Control area pointed to by XR1 which tells which 
directory is to be used and what pack that directory is 
on 



Function: Prints the system directory. 

Input: 

• SMAINT common area 

• Address of the common area in XR1 

Output: One printed page of system directory information 



Output: Formatted directory 

Exits: 

• Normal - Print/Punch Mainline phase ($MAPPM) 

• Error 

• Halt/Syslog transient if a retry operation is not 
specified 

• Mainline librarian phase ($MAINT) if a retry 
operation is specified 



Exits: 

• Normal - Print/Punch Mainline phase ($MAPPM) 

• Error 

• Halt/Syslog transient if a retry operation is not 
specified 

• Mainline Librarian phase ($MAINT) if a retry opera- 
tion is specified 

Where Used: $MAPPM 



Where Used: SMAPPM 
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Print/Punch Source Library Phase ($MASPT) 



Print/Punch Object Library Phase ($MAOPT) 



Entry Point: SMASPT 



Entry Point: SMAOPT 



Chart: HC 



Chart: HD 



Functions: Prints and/or punches modules from the 
source library. 



Input: 

• XR1 points to a control area that specifies where the 
module resides 

• XR2 contains the address of the module's directory 
entry 



Output: 

• Object deck if punching was specified 

• One 96-character printed line per module if printing 
was specified 

Exits: 

• Normal - Print/Punch Mainline phase (SMAPPM) 

• Error - Halt/Syslog transient 

Mere Used: SMAPPM 



functions: Prints and/ or punches specified object library 
modules. In preceding text, column descriptions indicate 
the format of the punched and/or printed modules. 



Input: 

• XR1 points to a control area which specifies the re- 
quested module 

• XR2 contains the address of the module's directory 
entry 



Output: 

• Object deck if punching was specified 

• One 96-character printed line per module if printing 
was specified. 



Exits: 

• Normal - Print/Punch Mainline phase (SMAPPM) 

• Error - Halt/Syslog transient 



Where Used: SMAPPM 
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*. .♦ 


1 •• •* 


* ♦ HQ 


* * ••*• i 


•ooi** • 


♦ E2*« m • -> 


****** * 


*•** j 


LEENDR -*. 


BT •. 


.• • 


. * ENH OF 


•. SCAK TABLE 



• PLACE FflROrf 
■>* COT1E IN ;>ALT 



LED101 



**• •• 

♦ 001* 

* H2* 



VALID 

AfcsaaF.NT 



LEUXD1 



CI 



• "TO" •. 

PACK 
•.SPECIFIED.* 



PI *. 

.* *. 

* "FRO.T* ♦, 

PACK 
•.SPECIFIED.* 



* YES 
< 



E1 



»m*m»Q2 **•*••••** 

• • 
•BUILD "TO" PACK* 

■>*IN COVT&Ol AHRA* 

* * 



♦****D2* ••**•**** 

• • 

♦ BUILD "FHOH" * 
->*PACK IN CONTROL* 

* AREA * 



GP/1/A1 
+****£2 •*••*•**** 
•MAAIS * 

* * 

->*ALLOCATE SYNTAX*- 
• SCAN • 



V 

• ••*« 

• ooa« 

• B1« 
• • 



*****3 3 **••*•*•*• 

» • 

YES * PLACF CORRECT • 

, >*CODF. Ill COHTftOL* 

• AREA « 



*****C3********** 

• * 

• ftUVF POINTF.B IN* 

* TABLE * 

* * 



BM 


*, 




.* MEM *. 




.♦ NAME *. »0 




*. FUNCTION -* 


> 


•- EXIST . • 


A 


*. .* 


i 


+ YES 






* • 






• 005* 






* B2* 






• •##• 




' GZ/1/A1 




•SKAREfl • 




* • 




•REMAKE MAINLINE* 




* * 





PLACB ERROR * 
>* CODE. I» BALT * 



• •**• 

• 001* 

• * 



* • 



to: * ha sen 

RENAME STATEBEHT 
PROCESSOB PHASE 



•***£?**•■*•*** 

' i 

EXIT « 



LEM2A 



PI *. 
•DOES A < 

"FROM" 

FUHCTION 

EXIST 



G1 *. 

.•DOES A < 
LIBRARY 
FUNCTION 
. EXIST 



H1 *. 

•DOES A < 

BAHE 
PIINCTTON 

EXIST 



HALT07 

•*««*F2+*******' 



• PLACE ERROR 
->* CODE IM HALT 



•oou* 

* Fl* 

HALT03 

*»»**C,2 ********** 

« * 

* PLACE EHROB ♦ 

>• CODE IN HALT •- 



•OOS** ♦ 

• CI** N2 * 1 

****** 
DU-G1 •** 
"ALTOI 

*****R2«" 



r I 



******* 



* PLACF RUBOR 
->* CODE IN HALT 



***** 
•001* 
* H2* 



V 

• ♦*•• 
♦001* 

• K2* 



• 7 

* ***** 

* «i* 



*00<t*DM-U« 
* DJ*05 
•••••OS 



pJ*Q5-C2 



TO: 1B.AALS 

ALLOCATE SYSTAX 
SCAM PHASE 



DELATE 
VERR 



* LIB 

ruscTioK = 

*. ALL 



' (JAflE 

FUNCTION 
ALL 



i 
AU ' 



**** 

i * 

* H2 < 



IAD1 * GV01/A1 

*****X 3 ••••*••*** 
•J.1ADEN • 



•DE1.FTE (1AINLIUI 



• ***]<q********* 

* < 

>* EXIT * 



Chart GA (Pait 3 of 5). Mainline Librarian Phase 



TO: (HADEfl 

DELETE MAINLINE 
PHASE 



Program Organization 7-35 



***** 

• 003* 

• an* 



LECOPE 



B1 

T1 = 
PUCK 

I. 



♦ TO = < 

PRTMT PUSCH 
•-Oil PRTPCH,< 



LBCP02 



*• ••• 

• 005* 

• D1* 



TO = 
PKTliT 



LKHAC1 



V 

• **«4 

♦OOH 

♦ F2< 
* * 



03 



Fiiun = «- ao 

READFR _•-- - 



LBCPOU 

*" 
— >♦. 



NAHE = 
DIR 



,» 





♦. .* 

•. * 
• YES 

1 




*. . ♦ 

♦. . * 

♦ YE5 

I 


V 

#005* 
• B1* 

• * 

• 




1 

. •• 
C3 ♦. 
» • *. 
.♦ LIBRARY 
•. = ALL 
♦ . 

• HO 


♦ . 
*" 


IBS 




***** 

•00.1» 
* H2* 

* * 




J 

***** 

♦001* 
* H2« 




V 

• •••• 
•003* 

• G2* 

• • 





lib 


fi •. rE5 




HAHE « ALL .* 


1 


. • 


V 


• . .♦ 


***** 


*. . * 


*003« 


* HO 


• G2« 






* • 



LEO AC 2 

***«H1 •*♦**••*• 
• EXIT 



***** 
•003* 
* 112* 



HALTA2 



rs 

THEiE A 
HErfHARE 



P3 



♦ MOVE TN EBBOB 
■>* CODE FOB HALT 



V 

+ »*** 
•00 T* 
• H2* 



LBCP2A 



LECP03 

*a**(;3****aa«** 

• I 

• EXIT i 



LIBRARY 



LECP3A 

****G4)*****»*** 
* * 

■ EXIT * 



IflACIR 

COPT IS1DBR TO 
OBJECT LID. (B.| 

PHASE * ' 



SflACBS 

COPY READER TO 

SOUifCE LIB. VHJL5B 



TO; 



*HAC*0 

COPI BEADBR TO 

OBJECT LI 8 (0.) PHASE 



MAPPfl 
PRIST/PUNCn 
nAlHLTSE PHA5! 
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* BH* 
* • 



B1 
SYSTEM 



LIBRAftT *. NO 
« OO'S .* 



♦003* 

• G2* 

• * 



.* N1IVBXME 


«. 


HO 


>*. = »ABE 


. 




• , 


• 


I 


*. . * 






*. .* 




V 


* TfE3 

I 




* ♦ 

* P2 * 

* • 


V 






C2" '*- 






.* *. 






.• LIBBABJ 


*. 


YES 


♦. = ALL 




i , 


• „ 


■a 


V 


*, .* 




***** 


*. -* 




♦003* 


• HO 




* H2* 



TO * 
PBOfl 



D2 



,* HETAIN *. TfES 
= P OB T .* 



I • *** *00lK 

* • * C2< 

L->* G2 * ♦ • 



V 

•OQ J* 
* H2* 



E2 


*. 












«* *. 












.* HA«E = 


*. 


HO 








*. JJAAE 




* ... 








*' 




? 






*. . * 






***** 






*. .* 






*00 3* 






* T2S 






* H5* 






**** 








* * 






• * 








* 






« F2 *-> 














* • 














• **• 












LECP06 .*. 












* P2 *'* 


•. 


HO 








.** LIB = 


« 




, 


*. a 08 ALL 




* 


>* 


EXIT 


* 


*. .* 

*. .* 


*" 




• 




* 












* *KS 








TO: 


SflACSL 


***• 










COPTf 


SOURCE LIB. 


* * 










DISK 


TO DISK PHAS2 


• G2 *-> 














* * 














• *** 














Lic^fly 














****(i2 ********* 










* 












♦ EXIT 




* 








> 




* 









TO: SfllDBV 

COPT 03JECT LIB. 
DISK TO DISK PHASE 
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SBAALS 



BITES 



IS k SB/06/A5 



•READ in VOLOflB « 

• LABEL « 

• • 



> CBABGB *. no 
SOURCE LIB. -• 



♦ « 

♦ IBDICA.TE BO * 
--->• CHABGB IB • 

♦SODRCE LIBBART * 



'D2' 



,• CHABGB • , 

OBJECT 
•. LXBBI8V .• 



♦ TES 



* IB H CATS BO • 

->• CflABGE IB • 

•OBJECT LIBRARY • 

• • 



|< 

.♦. 

B1 •- 

OB 
•. ALLOCAT 



J 



B2 



El 



. • OBJECT •. 
" TIOB . 



. • •. BO .♦ ALLOCATION * 

->•. SISTEH-YES -• >*, LfcHG 

•• . • 

♦. -• "•. 



BO 



•INDICATE OBJECT* 

f .• - — >«ALLOC1TIOB TC 

BBOOGH • • 1 • 



• Pi *-> 



HOB in 



BO 



PI *. 

-• •• 

.• SODBCE •. 
♦. LIBRARY 
♦ . EXIST -• 



. • OBJECT •. 

'. LIBRARY .' 
•. BUST .• 



HI •. 
.* • . 

„♦ 

'. SYSTEM- YB3 
•. 

• - .• 

♦ . .* 

• MO 

L. 



IBS 



■>• LIB SI2B TO 
* TBACKS 



•COBVSBT SOOBCE * 
B SIZE TO * 
TRACKS * 



•>• LIB SIZE TO 



GB/06/A3 

•CLCSRA • 

• — * 

->• DETBN ALLOC * 
•SIZE OP ROLLIB/* 

• ROLLODT. SIA • 



I • •*• 

• • 
l->* PI • 



tK30 



• •*• 
►• PI 



P3 



-•JILLOC1TIOB •. BO 

->•. LA8CE .*— 

+. EBOOCB .• 

•. .• 

• - -♦ 

• TBS 

L**** 
>• PI * 
• • 
*••• 



->*«LLOC1TIOB TOO ♦ 
S81LL ♦ 



* * 
U>« J3 • 

• • 
• ••• 



•- BE1LLOC1TE 
• - SOURCE . ♦ 



*0Q2« 
• Bl* 



-• SODRCE *. BO 

■>*. LIBB1BY .*— 

•. EXIST .• 

*. .* 

*. .* 

• TB3 



•HILT 



OLD SODRCE 
LIBBABY 



••«•••*«*****«••* 



• 002» 

• Bi* 



A • HALT/SYSLOC * 



1." 

* • 

• J3 • 
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Ol-Jl 
***** 
*oai* 

• K2« 



NOTE.- SEE IBH SYSTBK/3 DISK SYSTEMS 
SYSTEM CONTar - 
HAH UAL, SY21- 



SYSTEN CONTBOL PROQkAR LOGIC 



*••• 

! « 

' Bj •-• 



REOa 


k. 


PI *. 


.* * 


iro .* 


r — *. 8B-ALLOCATE 
•. OBJECT . 


A *- -* 


$ • . .* 


***• • Y?S 


* 




El * 




• 




**** 








. *. 


C1 *. 


• * •» 


.• OBJECT < 


*. LIBBAXY 


•. EX 


[ST .< 



S3 *. 
.♦ • „ 

OBJ LIB < 
ALLOC. Oil 
DRALLOC. .< 



B4 



SNA OB 

EE EXIST 



*****B5 ********** 

* * 

♦ SET BIT TO • 
>* INDICATE • 

• 5TSTBB-TES * 



RB/06/G« 
**«**C2********** 
•HALT • 



AL01 



A • HALT/SYSLOC * 



.L : - 

■ i 

> • 

• ♦*♦ 



OBEX 

•••**q1 ********** 

• * 
•DETESfllNE TBACK* 
•SIZE OF OBJECT * 

• LIBRARY • 



*••• 




* * 




• El *-> 




• • 




• •*• 




CKPK 




•*«**£1* 


►♦♦♦*•*** 



•***D2********* 

4 

RETURN * 



SHAIfTT 
MAINLINE 
LIBRARIAN 
PHASE 



« CHECK TOTAL • 
♦ALLOCATION SIZE" 



OOJ 
K2 



' *. YES 

ALLOCATION .♦ 

'.TOO LARGE.* I 



TOTOK 



• **• 

i « 
t c2 « 



***** 
•002* 
• C.2* 



PETCH8 ¥ NOTB 
***«*G2*******4 



• 


*. 






* • 


t)£H1 


PKY • • 


*. 


TES 




* * 
>* * 

* • 

* * 


(FETCH • • 

IflAAHK • • 

ALLOCATE * • 

KAIHUSE^ • • 


, • 
*. .* 

*. . • 

• jto 




A 

.1. 

* 


• 












*r,2 


+ 
• 












*••• 






V 

.*. 

HI •- 
.* *. 






1 

••••H2«< 


******* 


HE* ♦, 

PACK 

. * 


NO 

"'[ 

• ••• 

• • 

• 31 • 

• * 

• •*• 


• 
• 
• 


• 
EXIT • 

• 


*. 

4 


. * 
YE5 


TC 


: JKA»*H 
flAINLIHE 
LIB&ARIAN 
PHASE 














J1 

• 

SOUI 

ALLOlCJ 


*, 
*. 
ICE •. 

LTIQN . 


^YES 




. « 

J2 

.• 03 J! 
>«. ALLOCI 


*. 

:ct •. 

LTTOH . • 



OBJ LIB 
EXIST 



•«**«cs ********** 

• * 

• INDICATE COPY * 
->• OBJECT ONLY * 



J 



SOUBCE ♦. YES 
LIB EXIST -* 



r.3 •. 

.* ANY ♦. 

•ENTRIES IS •. YES 

SOOBCE .* 

•. LIB .* I 



DEALLOCATE 

*. SOUBCE . 

♦. •• 



tts 



***•*£((*•*•••«•*• 

• INDICATE COPT • 
-* SOURCE LIB • 



DS •. 
.• ANY •. 

-• FEHfl ■. 
-->•. ENTBIES IN .• 
A •. OBJ LIB , • 
1 •. .• 
1 •. .* 
*** * 
* 


DS • 

• 




• ** 




•****E5 *•**•***•* 

* * 

• INDICATE NO * 
•COPY OF OBJECT ♦ 

• LIB * 

* • 



**•• 

■ I 
i D5 < 

■ I 
• *•• 



•****P3********** 

B • 

• INDICATE NO • 
•COPY OF SOUBCE * 
« LIB • 



• ••* 

• i 

■>* D5 < 

• < 

• ••• 



CKCOPY 



ANY 


*. 


ia 


COPY 




*-— -i 


.*" 

*- .* 


* 


I 


• 125 




***** 
•ooi« 
• si* 



CKNKU 
HO .* 

r 

**** 
> * 

. c2 • 
• **• 
VKIHIT 



05 *. 
«• •. 

BO .• SOUBCE ♦. 

— •. BUST .* 



.* N03K •. 
♦ PACK SAfie 

AS TO 
•. PACK 



• *•• 

> « 

* C2 * 
t « 

***• 



MOLD 

*****j )••****•••• 

* * 

• put Musses op • 

— ->• TRACKS TS DTP • 
A 



;b/06/a^ 



.!..•'• 



•READ IN VOLUHE 

• LABEL OP tfOBK 

• PACK 



OBJECT 
EXIST 



NO .* NO •_ 

*- CHANGE TO .* 

\ *. SOQfiCE .» 



ADO OSJ LIB 

SIZF TO MOHK 

AREA 



**** 

• • 
-->♦ J* • 

* * 
***• 



V G3/05/A1 
*****K3********** 

•CRTSrC ♦ 



•GET WOHX SPACE ■ 



j ♦ ♦«♦ 

»■->• G2 • 
• • 

• ••• 



Ktt •. 






K5 


*. 


.• yoaK *. 






. ♦ 


*. 


PACJt •- 


NO 


NO 


.* 


*. 


INITIALIZED . 






DEALLOCATE . 


. .♦ 


I 


•- OBJECT .• 


** •• 


• _ 


.* 


* • 


♦ . 


. * 


• YES 


*•*• 




• YES 


J 


• • 




1 *•*• 


* C2 • 




I * 


• • 




i.-># 2 


•**.*• 


*•*• 




• 


•003* 






**■* 


• ci* 
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102* 



FETAHH .». 

B1 • . 
.* *. 

. * 
♦. DEALLOCATE 
*. SOBRCR , 
*. .* 

*. .♦ 
* IBS 



B2 



.*. 



HO CFG 
IRC 



♦ . 

O SOURCE 

.*" 

.* 
* BO 



SOUBCE 
EXIST 



*SBT SOORCE SIZE* 
HE 



>• TO EQUAL OLD 



CI *- 
• • *. 

. • ♦ .HO 

*. DEALLOCATE .*--- 
+. OBJECT .* 



• TES 



****«B1 ********** 



*SET SEC OP LIB ♦ 
•TO EQD1L ST1BT * 



**** 

•002* 

• K4 *-> 



CBEXP 



• DBTEBHTIIB BO. • 

• OF TRICKS FOB ♦ 

• HO IE IB 11 * 



t GB/06/ai 

••••«F1 **•**•*•** 
•CBSPC * 

» « 

• DBTERHIHE IF * 

1GH SPICE IS* 

• 1T1II1BLE * 



SPICE • . 1 

FOOHD .*- 



C2 



BO CHG 
TO OBJECT 



OBJECT *. IBS 

BUST -* 



•**•*<: 4*+ ******** 

* • 

•SET OBJECT SIZE* 
•>♦ TO EOBAL OLD * 

* SISB * 

* * 
***************** 



• POT START OF * 
•OBJECT LIBRARY • 
•IB COHTROL AREA* 



GB/06/ 1 

•••**G2********* 

• B1LT 



HALT/STSLQG 



• *** 

• * 

• Q2 • 



>H2< 
RRTDBH 



NAIHLIHB 
LIBHAHIBH 

PHASE 



*•** 
► < 

' B3 * 
• i 

**** 



SOUBCE 
EXIST 



HO .* OBJECT ♦. 

->*. LIB BXI5T .• 
A A *. 



•-DEALLOCATING 
•. SODRCB .< 



.!.. 



••♦• 



HO *. TES 

caiBGE TO .* 

. SOUBCE .* 



+****H 3 *•••***••• 

• • 

• PUT 10. OF P * 
•LIB 5ECT0BS IB * 

• HOBK • 



1**** 
*00»« 
->* 61* 

• * 
•*•* 



• ADD 2 THICKS IF* 

♦ STSTBB-rES •<* 



•♦****♦•♦*•****•• 



*«***GI1********** 

• IHDICBTE 80 • 
•COPT OF SOOBCE • 

>• 1HD HO CHARGE • 

• to sonacs • 



• ••• 
• • 

■>• E* • 



BS •. 
.* *. 

.* •.TES 

->*. DEALLOCATE .* ■ 

*. OBJECT . * I 

•• .• 

*. .* ¥ 

* HO •*••* 

I *00** 

• B1* 
• * 



F* •. 
.* •. 

TES .* $RA +- 



•. .• 

* HO 



HOSMA 

+**«*G<> **•*«•*••* 

• HO*E HO. OF • 

• ACT. PEBH • 
•TYPE SECTORS TO* 

• 10BK • 

• • 
*•***•••*«•••*•*• 



• •**• 
•00*» 

* Bl» 



DEALLOCATE 
*. SODBCE . 



OBJ LIB 
EXIST 



• • . • 
*. .* 
• TES 



•. SECTORS < .* 



***** 
•002* 
• F2* 

• * 



bdbok 



SOBTBACT 24 

FROH BO. 

SECTORS 



*. DEALLOCATE 
•. OBJECT . 



•••• 

• « 

• El • 

• • 
***• 



ODBCB 


*, 


BO 


.* SODBCE •. 


EXIST 






•- HOT CR1HGED .• 




• 


1 


• - .* 


. * 






*. .* 


*. .* 




4 


*. .* 


* TES 




• ••a* 


• HO 


1 




•002* 


i ••*• 


1 




* F2* 




i 




• * 


•••• 




• 


• * 


• • 






•**• 


• E3 * 








• * 








• **• 









.* SOOBCE *, 

->*. REALLOCATE 

♦.TOO SHALL. • 

*. .• 

*. . • 

• HO 

I /"« 

«->* xa 



»**• 

► * 

► G2 * 
■ * 
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03-E4 

•003* 
* G5* 



• BH < 

» 4 

• ••* 



ADD1 



CI •. 

.• *. 

HO. *. BO 

SBCTOHS < .*— 

2d . • 



• 1**1 



D1 *. 

. • «. 

.* 10 *, HO 

*. CHIHGE TO .*— 
*. OBJECT .• 

*. .* 

*. . • 
• US 



••***C2 
* 

* StJBTHACT 21 
->• FROfl SO. 

* SECTORS 



t>2 •. 
.* LA1GE •. 
.* BHOOGH TO 
■>•. BOLD 7EBN 

*. SECTORS . 



.* TiLID •. HO 

*. CTL «0. .* - 

*. .* k 
• TES **** 

* 

• D3 

• 




• **• 


1 GB/05/A1 
•GETSPC • 


• GET SPiCE OH • 

• VOBIC PICK • 

• • 



GB/06/G5 
tMrnmrnQj* ********* 
•«ALT • 

no • • 

t >• « 

A ♦ (ULT/SYSLOG • 



» ACTIVE *. TES 
SYSRES PACK .* — - 



' D3 « 

r 4 
• **• 



•»•****•*•***••• 



GETMBK 



♦ADD 50UKCE SIZE* 
•TO OBJECT SIZE • 



* 
HO 



SrSDK V IOTE 



• *•• 

* * 

• D3 " 



**•» gj ********* 
> 8ET0BI < 



TO: IJHIBT 
flAIHLIHB 
LIBBA8IAH 
PB USB 



• *MHTRT LOAD* • 

• * (SfSTAI • • 

• *ALLOCATXOH * • 

• *IHITIATOft) * • 



ssp t GB/os/ai 

•GETSPC 005*1* 

* • 

• CHECK FOB • 
•AVAILABLE SPACE* 



IBH 



MOTE 



• *B 841. LOCATE • • 

• • BAIHLIHE) • • 



Si 



.* THACK5 


*. 


HO 


*. POD ED 


. 


• , 


*. 


* 


1 


*. « • 




i 


*. .* 




i 


• TBS 




• •«* 








* • 








• D3 ♦ 








• « 








• *«# 










STFKD ,*, 






SI *. 






.* * 






,* ERDUGfl 


*. 


HO 


*. TRACKS 




• T--1 


*. PonjrD . 


* 


1 


*. .* 






•« . • 




T 


• YES 

,1 




**■* 

* * 

* D3 ♦ 

* • 
*•*• 


IIC002 .*. 




Jl •. 






.* *. 






.* 10. OP 


*, 


TES 


*. THICK! 


< 1 


. 


• 



••**G4«* ******* 

• * 

* BUT * 



to: jmibv 

be- allocate 

HAIHLIHE ilTH 
ROJtK PACK 



J2 



,*. 



* HO 



■IC001 t 

**»**K1 ********** 



i. **•• 

.* HO. OF *. TBS * * 

>*. TBACKS - .* >• B* • 

*. .* * * 

*. .* • **« 



HO 



HOTE: SEE TBI) STSTEH/J DISK STSTEHS 
STSTER COSTROL PROG RAH LOGIC 
AAMUAL, ST21-05D2: 



•SDBTBACT 2 
' * HO. OF T» 



PBOB* 
ACKS • 



«**** K 2********** 



• ADD OWE TRACK * 

* TO C/S • 



*•***+*••••*•*••* 



• * 

• 8» * 

• « 
**•• 
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' A« * 
i 

• **« 



GETCS 



ENOUGH 
UOOH 



• GET STABTING • 
->*TSACK OF SPACE • 

* POUND • 



•••••31** •■*••••• 



CAVE S2TUHN 
ADDSESS 



«B5< 



• SDBTBACT ONE 

• FBOH 

• DISPLACgSEHT 



• 

• DETEBHIM • 

* KBfiBEB Or * 

♦ TRACKS • 



GB/06/A5 

•KRAD IK VOLUME * 
• LA8FL • 



C4 



C5 



•**«*D1««******** 



• I8ITIAII2E • 
■ TRACK COUNTER * 



• * 

• El •-> 

• * 
♦ ♦♦♦ 

ADDCTB 

• ♦ 

• ADD 1 10 * 

• COUHTEB * 



.* END 


OP ♦. 


YES 


. • ODD 


HO. *. 


*. POSHAT 5 


* -, 


*. OP TRACKS .* 


*- . * 


1 


*. .* 


•• . • 


I 


*. •• 




T 


♦ . .• 


• NO 


» + •♦ 


* SO 


1 


• ■ 








• HI • 








• • 






1 


**♦« 






.♦. 


RVENCY 


D<» •. 




••♦•♦ 05 •••••♦***• 


. • *• 




■ * 


. • TBKCK *. 
•. AVAILABLE . 


HO 


•SET SECTOB MO. • 


* ■ 


• TO 00 * 


•• . • 


1 


• « 


♦. .• 


\ 


• * 


♦ yes 


*•*• 


1 






• • 


♦ «■*• 






• r,1 • 


* + 






• * 


!■->• F5 • 






• •♦♦ 


• * 






• + + • 


*****E«»< 






«***«g5* *•*«*««** 



•SET SECTOB MO. 
• TO BO 



PI 

t 

.•" TRACK ♦. KES 
■"■lILA"' 



■■ Au < 



AVAILA3LS 

♦ . .« 

*» .* 
* NO 



->*SET COUNTER = 1 



' F5 



• ♦•• 
SPCRTN 



♦ + •• 

* * 

* GT •-> 



•***f5 ********* 
> « 

' a STUBS « 



TO: CALLBB 



END Of 
F5 






► E1 « 

I 4 

♦ •♦♦ 



SPHAIT 



TRKERH .». 

H1 *. 

.♦ SPACE *. 
.•OS *. NO ♦ IICDrCATE NO 

*. ALLOCATION .• >• SPACE OK 

*. PACK .* ♦ ALLOCATE PACK 



CB/06/GG 
'HALT 



»--->♦ 

• HALT/5T5LOfl 



* INDICATE SO * 

• SPACE OS WORK ♦ 
■ PACK • 



V 

RETir?H 



TO: CALLSR 
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SITS BETUHl * 

ADD BESS • 



»««**B3*>******** 



S17E RETOBB 
ADDRESS 



*»«*«B5«*»+****** 



SATE RETDBN 
ADOBBSS 



TBKB .*. 
CI ' 



TBACK *- BO 

bo. < e .♦-— 



•••••C2 *•*•••*•* 



•subtract e fsoh 

->* TUCK BO. 



TBKO 



TRACKS 



-->• 



N«D2«**«««*< 



•SOBTSACT 1 PBOB 
TRACK BO. 



• *•» I 
• B1 *->] 



El 


*. 




.* ♦. 




.♦ TRACK * 


BO 


*. ATAXL1BLB 


•— --. 


*. . * 


1 


*. .♦ 


*. .* 


■ TES 


♦ *♦* 






• * 






• J1 * 






k ■ ■ * 






• ••* 


• 






• 


• 


•SUBTRACT 1 FHOH* 


• TRACKS HEEDED 


* 


• 




* 



.*. 

CI •. 

.* BO. •• 
.♦ TRACKS •. TES 

•. BEEPED « .♦ 

•. .• I 

•. .• 



• BO 



• *•* 

• 1 

• K1 « 

• *♦• 



*■ ■* 1 
♦. -* T 



• •*• 
* J1 *-> 



• ••• 
IfOSPAC 



• *•* 

• i 

• El i 



•IKD1CATE TRUCK ♦ 
* ROT TOD1D • 



• *•* 
► K1 •-> 



• RETURK 
TO: CALLER 



CLC1 

♦ •***i; !*♦+♦#♦ ♦♦•♦ 



• SET SHI SIZE • 



■ < 

' RETORW "« 



TO: CHLLEfl 



TO: CALLER 



V BOTE 1 

••»»*cs**+ ••***•• 

* ♦ * • 

* •DI0D5P[I05 • • 

* ♦READ/WHITS) * * 

* * # • 

* * • • 



KOTE 1 

• ♦♦♦♦D <;♦*•• *•♦»•♦ 

• • • • 

• *BlODBTJIOS • • 

• • BUT • • 

• • BODTIRE) * * 



• • 



» • 



BS 



TES •• ♦. 

•. OPEftfcTIOR .< 

• - OK . • 



• IHOICITB • 
•PBBN1KEBT DI5K • 

• ERROR * 



• 
■>* 



BOTE 1: SEE IBB STSTEB/3 DISK SISTERS 
DATA RABfcGEBRBT ARD INPUT 
/OUTPUT 50PER7I50R LOGIC 
HHBB1L, ST21-0512. 



BOTE 2: SEE IBB STSTEH/3 DISK SISTERS 
SfSTEH COBTHOL P BOG BAR LOGIC 
SAMJ1L, ST21-0502. 



? BOTE 2 

• • # • 

• • REHTBT * • 



(RALT/ 
ST SLOG] 



T 

RETURB 



TO: CILLER 
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J nun i 

* EKTHY < 



t Fl * 
i * 

♦ ••♦ 



CI ♦. 

.♦SOURCE *. 
* 8SHG •- TE3 

DEALLOCATED .♦ 

•• .• 



C2 ♦ . 
.♦OBJECT ♦. 
' LIB BBISG *. 
DEALLOCATED . 



LSCALL GE/01/A1 
*«***C 3 *♦♦*•*•♦♦* 
• MAASL ♦ 



•ZEBO OQT SOUBCB* 
•PART 07 SOURCE • 
• LIBRARY • 



ft«**«D2' 

• * 
♦ZBkO OUT OBJECT* 

• nrt or systbw •- 

• LIBFABY • 



^•ALLOCATE SOURCE*- 

• LIB8ARY * 

• • 



.* 08JBCT 
■>♦. LIB BBIIG 
♦.ALLOCATED. 



► OBJECT «. TES 

LIB « 00 OB .♦ >♦ 

>. FF .* A 



lalloc cryoi/n 

•IBATAD 



* * 
L->* F2 < 

• * 



i * 

* D5 • 
i • 



ALLOCATE * 
LIBRARY * 



. • OBJECT 
•. CRAHGED 

• _ 

*. .♦ 
♦. .* 

• yes 
• ••• 1 


♦ . 


NO 

• --• 

l 
• 


I 

• •• 

♦ 


: " H 




• 
4 


D5 * 
• 
♦ ♦♦ 


*••• 4 








LCKOBJ .♦. 

P1 *. 






LAL08J <1D/01/A1 
•••**F2 ***•*•**•* 


.♦OBJECT *. 
.♦ BEING 


«. 


Hfl 


•SHAAOL ♦ 


•. DEALLOCATED . 
*. .* 


• --.. 


>«ALLOCATE OBJECT* 

K • LIBBARY ♦ 
1 * * 
♦ ♦•• i 


*. •• 






• YES 














♦ 72 * ) • • 

•♦•• • a 










• •♦• 




■ 









•♦♦♦E5** **•*•♦♦ 

► i 

> BETDBH « 
t < 

•♦•**•*«•****** 

TO: SBAIHT 

BAIKLIHE 



•ZERO OOT OBJECT* 
►PAST OP YOUTME • 
• LABFl * 



• ••* 

* » 

->• D«> • 

• » 

• •♦• 
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mien. 



BKTSfl 



• • 

• ZEBO ODT StS • 

• DIBECTOBT POT • 
♦SIZE TEHP 1BBA * 

• • 



CI •- 
.• *. 

. * 
*. SYSTEH-TES 



* SETt K1MU ♦ 

* DIB8CT0RT * 
->*ENT8TZS » 28B, * 

* 3EBO OOT S»A ♦ 

* ABBA • 



■>• G3 ' 



SXSXES 

• * 

• MOVE SfPJl SIZE • 

• 21 «OBK ABBA • 



* 
CHECK SWA SIZE • 



591 
SIZE > 1 



OVER 

* SOBT THO FROI • 
». YES * SRA SIZE. ADD * 

.♦ >»OKE TO CTtltlDEfi* 

* * BOflBEB • 



* *. 

STEM ♦. HO 
OF TBACK5 .*--■ 



• SET SBCTOH •= 



• tE5 



• *•* 

• • 

• B3 • 

.+- ADDCT I 

B3 •. •♦••• B (i«i««»«»*** 

» *. • STJBT TRO fBOn • 

SIZE > *. 7BS * SIZE. ADD DUE • 

1 .• >• TO CTLIBDBH • 

-• • SdKBEB * 

'. .* • • 

• . .* *«*««*«*««**»**•# 

• HO 



••**D3«*«**«***« 
SBT SECTOR = 80* 



•1DO C/S IK WORK* 
♦A BE A TO DIR PTB* 



• **• 

* * 

• P3 •-> 



* SETt AVAIL • 

* DIBECTOBJ * 

* ESTRIES ■ 86d • 



• ♦♦♦ 

BLDRST 

• * 
•POT tOF TBACKS * 

• I> TEHP BORIC • 

• ABBA • 



nl 

I 

IOL 
•.BOLL 



ROLL- IN/ 
-OUT 



ADD I 

*«**«H4* ********* 

• SDBT TWO raos • 

• TBKS, ADD OlfE • 
■-->* TO CTLINDEB • 

• BDRBEB • 



• TBS 



• 1 

• F3 < 

• i 
• *•• 



•POT B/R sias IV* 
• SORK ABBA • 



• **• 

• ■ 

• B3 < 

• i 

• »»* 




>• 8ET0BB * 



TO: SSkXAV 

ALLOCATE 
P1AIHLIHE 
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miusi 



•••• 

• • 

* * 
• ••* 



13 *. 

• *. 

pirst *- ras 

sectors .* 

CHAINED . • 
*. . • 



•POT IN PPPP TO ♦ 
■>*IRDECAT3 BHD OP* 

* DIBP.CTOBY * 

* • 



* BO 



• IlITIftLIZE ■ 

• 8BGISTBBS IFD • 

• BORK ABEA5 • 

• * 



'HST V GE/01/E3 

•(TRITE ■ 



DETEMIIE 

HOHBBA OF 

THICKS HEEDED 



•««••£]•«•«*****• 



PUT II HST 
CHM1 POIKTEB 



• f OP *. NO 

TRICKS ODD .*— ■ 



• * 

• * 

• SECTOR • - 80 ♦ 

• * 

• * 
***************** 

< 



NOTE 1: SEE IB« 5T5TEH/3 DISK 

SYSTEAS DATA BAlAGEflEtfT 
IHPOT/ODTPOT SDPEBYISOB 
LOQIC a* HUH ST21-0512. 

BOTE 2: SEE IBM STSTEA/3 DTSK 
STSTZHS ST5TZa CORTiOL 
PROCBM! LOOIC HAHOftL 
ST21-0 502. 



WRITE 

+m**&2*+ ******* 

* i 

* ERTB.Y * 



•IBXTIftLIZE POI * 

• UBITE • 

* * 



■>*STOR* REGISTRBS* 



t BOTE 1 

•DIODSP * 

« • 

• *HBITB FIBST* • 

* • SECTOBS * • 



**** 

• t 

• Gl *-> 

• i 
**** 

m****$1 ********** 



< 



t ROTE 1 
•••••G»********** 



* *DIODBT BUT* 

• * oi mite * 



.* WHITE 
*. OK 

*. 

*. .* 

*. .* 
* YES 



BOTE 2 
****{ig******* 



* (B1LT/ 

• Sf — 



ITSLOG) 



J1 *. 

► *. 

TfllCK *, YES 
COORT - .* — 

SPACE .♦ 

► . .* 

*. .* 



• **» 

* * 

* A3 * 

* * 

• *** 



•POT II PPPP TO • 

•>*IRDICATB END OP* 

* DXBECTOBT * 



BETOBR 



****J5********* 



TO: ClLLBB 



TO: 1NAINT 

HAIRLIRB 
LIBRAS!* 
PHASE 



•****K2 
•■RITE 



GB/01/E3 BBA1 
********** 



•***K3 •••**•••• 



TO: CALLEB 
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• •** 

t i 
► kH < 
* I 

• ••• 



*«»T1D 



DJ1 



•****B 1 •*•*••«••• 



SBT DP FOB 
VHITR 



NOT? 1 
«****d *•*****«** 

• * 0I005P * * 
BBITB • * 

Tenant * * 

LiBBL • • 



• • 



„ BOTB 1 

**«**di •*•*••••*• 

• * • • 

* *DIODBT «»IT* ♦ 

♦ ♦ OB BBITB * • 



•iBDTCjTB Z1D a 

• Of SOURCE 11D 

• object na 



»****pt|********t* 

MflAT&D • 

* * 

* * 

* SH BIT LOGIC * 



• **• 

• • 

• c« *-> 

• • 

• ••• 



fr BOTE 1 



• * • * 

• *DIODP GO TO* * 

• * IOS * • 

• * * • 

• • • • 



HOT! 1 
»****D4* ********* 



•DIODiT BUT* 
* 0» IOS • 



> E1 '-.. 

BBITB *. HO 
OK .*--- 



r^ 



HOTB 1 
•****B2 ****•••*** 

• * * * 

♦ ♦ ■EBTHT • * 
— >♦ * [HILT/ * ♦ ■ 

k • * SISLW) ♦ * 
♦ * 



1 : " 

*♦** 

* * 

• 52 * 



•***E3* ******** 

* * 

->* BETUBB « 



TOs BRUIT 

aMim.inB 

LIBBlBIli 
PHASE 



. *0 
LIMtllBS .*— 



AIT 
ttklll 

KXIST 



•****r2********** 
•m*nv * 



>* * 

• SBT BTT LOGIC • 

* * 



tOS OK 



•****PH •••*••***• 

• * 

• DDflP VOLDHE * 

• LIBEL Oil F2 * 



*•** 

• • 

• E2 * 

• ' • 
**•* 



SOBBCE 
LTBB1BY 

., WIST .* 
*. .* 

• BO 



TBS ♦IBDIC1TE STMT • 

* .>* » OB SOOBCB •- 



>• 14 • 



DQ2 



TO: CALLBB 



SI •, 

Sfl 

EXIST 



*****H2 ******•••• 
* * 

*. TBS *riDICAT£ ST1BT * 

.*-" >♦ • Of SKI •— - 



*••• 

• • 
■>• 14 • 

• * 
***• 



DG3 



•****J2 •*•***•*** 



BOTB 1: SBE IBH STSTBH/3 

DISK STSTEBS STSTEB COKTHQL 



,* OBJECT 

L1BBABT 
*. BUST 



• • 


• ••• 


•TBDIC1TB ST1BT * 


* 


• » or OBJECT •-- 


-->• AH 


• LIBBAHT * 


• 


* « 


• *•• 



***9*K1****«***** 



• IBDICITB BO * 

• LtB&lBlBS BUST* 



*••* 

• * 
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••*•*£ 1**** ****** 



•TBITTAtlSB *OBK* 
* ARE! * 



* DETEBBTWE * 

* flOHBEB OF * 

* TRICKS • 

* * 
a**************** 



«****Di* •••••*•»* 

• DBTBBBIWE * 

• SETTIMfl OF • 

• DISPL1CEJ1EHT • 

• BIT • 



D271E2 



*****S2* 



!*****••• 



T31CKS *. BO 

* .•— - 



•SUBTRACT 1 FBOS* 
— >• TBJkCK 1RO SET ♦ 

• BIT • 

* • 



D27TEU 

*****?1*»******** 



•IMITIULIZE HORK* 
• IK El * 



• DETER 8MB • 

• HOHBEB OP * 

• TUCKS • 



• *** 

* * 

• H1 •-> 



• SET BIT 01 OB * 

• OFF * 

• * 



.* » TB1CK •. tO 
'. x .• 



• ADD CODE TO * 
•* ifSBLF *■ 



.• TALID A • . HO 
■>*, CODE .»— — 

*■ •• ! 
• - .• 

•■ -• I 

• TES •*** 



• * * HI • 
■>• HI • • • 



BBTUa» * 

* 

TO: CALLED 
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BITTER 



► A3 * 

* * 

• **• 



SOURCE 
COPIED 



SET OH 

IRDICATDB TO 

DE-ALLOCATE 

SODBCE LIB. 



***«*£ 1 ********** 



* 5T0EE POIBTER * 
•TO COBTBOL ABEA* 



CKOB 



OBJECT 

COPIED 



*****$%********* 

* SET ON 

* IWDtCltOB TO 
■>* DE-ALLOCATE 

* OBJECT LIB. 



«»*«C1********** 
•1EITBT LOAD* • 

• FIMD * • 

• BOOTHS • • 

• taxrn * * 



LDABH 



****«C3 ********** 

**ElJTftT • 

* *LOAD ALLOC * • 

* * HAIBLIBE * * 

* « SBAABE * * 



.*. 






Dl •- 






.* *- 






-• COPT *. 


BO 


*. 5O0BCE 


*. 


■ — ^ 


*. LIBBABT .* 




1 


*. .* 




■* TES 




**** 








* • 








* HI * 








* * 








**•• 




1 BOTE 






* * • 


• 




• *RBRTBT LOAD* 

• *COPT SOURCE* 


• 




* 




• *LIB BHAACS • 


* 




• • • 


* 





brabbi fr gc/1/i 

««*«*di ********* 

•SBiiBii 



DE-ALLOCATE 

ISDICATED 

LIBR1BI 



E3 



.* SODBCE *. TES 
COPIED .* 



.* 
* HO 



• IfSIClTE BEB 
■>*SUDHCE LIBRAB1 



J 



BR ACS * GJ/1/A1 
*****F1*********« 
•S8AACS * 

* * 

• COPT SODBCE • 
•LIBBABT TO BORE* 

* PICK • 



. * *. 

* OBJECT *. TB3 
COPIED -• 



•****Fli ********** 

• « 

• IBDICATR BBS • 
■>*OBJECT LIBRART • 

• SIZE * 

• • 
• ♦•**•****+ ****** 



. *. 



.* *. 


**** 


.* COPT *. BO 
*. OBJECT .*--- 
*. LIBRART .* 

*. .* 


* 
->* A3 

* 
• *** 


*. .* 

* res 

•*•* i 




• * 




• HI *-> 

* * 




*«•* 
COPOBJ t BOTE 1 




* * * • 





• *IEBTIT LOAD* 

_:?r OBvi: 

•LIB JBAACO * • 



* *COP7 OBJECT* * 



BELD » ROTE 1 
*****$•$********** 

• *BEBTBT LOAD* • 

• • ALLOCATE • • 

• • BAIBLIIE * * 

• * SBAABE * • 

• * * • 
***************** 



BBABI2 ? GC/1/A1 
*****$ 3* ********* 

•tBAABB * 

* „» 

• ALLOCATE • 

• INDICATED • 

• LIBBABT • 



5EE IBB 5T5TEH/J DISK 
SISTER STSTEB CDETBOL 
PROGRAB L03IC BAHDAL 
ST21-0502 



BBACO * GI/1/A1 
*****j ■)********** 

•IHAICQ * 

• ~COPT OBJECT • 
•LIBBABT TO WORK* 

• PACE • 



SODBCE 
COPIED 



i BO 
• >• 

A 



OBJECT 
COPIED 



dkdEal 

«**«*xi*******< 

• ZEBO OUT 

• CORTROL ABEA 

• IBDICATE 

• ALLOCATE 



* GL/VA1 
*****X3**** ****** 

•SBABCS • 

• , * 

• COPT BORIC PACK * 

• to soaacs * 



GK/1/A1 

t**»*HH*+******* 

♦BBABCO 

*COPT HOBK PACK 

* TO SODBCE 

• LIBBABT 



• REITBT 

• PBTCH 

• 5HAXVT 



••**K5**+****** 
> < 

' EXIT ' 



TO: SnATBT 

LIBBABIAV 

BAIBLIBB 

PHASE 



**** 

• * 

• A3 • 

• * 
**•* 
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• At * 

♦ • 



S1APND 

***** 1 *••*••*»• 
* BKTEB < 



EOBUFF .*. 

Alt 



8HD OF *. HO 
SECTOR .•- — 



* TES 



***t«B1********* 



SAVB BKTDBH 
ADDBESS 



CKBRT 



•AD.VAECE SECTOB 
■>* PDIKTER 



L->* Hi ♦ 

»*»* 
MOTE 1 

• ft ♦ * 

• "DIODSP IOS • • 
eiD/KBITI 

BOtJTIHE 



'POT POIMTER AT * 
■START OF BOFFER* 



END OF 
DIE EC TORT 



•INDICATE EKT8Y 
■>* EOT FOOED 



D1 •- 
.♦ •- 

* THIS A *. SO 

SOURCE FIHD .« 

*. .■ 1 

*. .* ••*•• 

♦. .• «002« 

• TES • \2* 



• *** 
■>* HI ♦ 



• HOVB IE SEE » * 

• TO READ KBIT • 

• SECTDtt * 

• * 



INITIALIZE 

COF1PARE 
TESTROCTIOI 



••***g4«***t*1 

• •DIODSP IOS 

• *READ/¥RITE 

• ♦ BO&TIE1 



* * 



• • 

■->• G1 ♦ 

* * 



FIRST *. Eg 
FIED .•--■ 



" EOTE IB SATED • 
->• DISPLACEttEKT • 



FSTFED 



• SET ♦ 

* DTSFLACEHEKT * 
•EQdAL TO LENGTH" 



*••• 

* * 



H1 



3EE IBI SISTSH/3 DISK 

SYSTEMS DATA EABAGEaBET I H PUT/ DDT PUT 

SCPBRVISOB LOGIC EAiOAL, SI21-Q512. 



.♦ AHE *. HO • • 

•. BAJ1ES EQUAL . * >• A« * 



EARFED 

♦ ••♦•J 1 ' 



• SATE • 

• D ISP LAC EB EH T * 

• AFTEB MAflE • 



02-82*002* 

• •** 

8ET0BS 

• BBTUiB * 

• * 

TO: CAILEB 
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* D1« 



IKITIALEZZ 



******«**•*•••••• 



first 
find 



LFIR5T 

* a 
•SEI COUHTEB TO • 

• EBHO • 



♦ »♦♦ 



LSHOJ! 



IBCBBHEtlT 

COUHTEB 



• **• 
ITIQOP .•. 

D2 •- 

• • •, 

HO .* E>D OP 

*. DIBECTOHI 



LPCOHF 



El 



.• are •- 

*. I1HE5 EQUAL . 



•SET POIBT8R AT • 
->* EMTBY FOUHD *- 



***«*3 i •••*«••*• 



V 
• ♦♦•♦ 

♦00l« 

V. 1 ' 



LPDISP 



•001 < 



IVCRBHEMT 
CO0BT2R 



12 •. KO 

BBTBIES .* i 



• TES 



i 



BOTE 1: SEE IBtl SISTER/ 3 DISK 

SYSTSHS DATA IliHACBUBtlT IBPUT/OPTPUT 
SUPEB7ISOB LOGIC HAVUAL, SI21-0S12. 



•POIST AT EHTRT • 
■>* FOUHD 



: J 



• •** 

• • 

• C2 • 



warn 

SECT OH 



t HOTS 1 



* * • • 

* »DronsP ios * • 

■ "BEAD/iraiTE * *- 

• « BOtfTiSS * * 

• * * • 



* • * • 

* »DTODSP IOS • • 
■>♦ •flJUD/HHITE • * 

* « BOUTIME • • 



.BEAD IH 
.BEJCT 



• * 

• A2 • 
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• ««• 

• * 

• A<i • 



• •••g i ********* 



SA7B RETORR 
ADDRESS 



*•***£ 1 *•******•• 

* • 
•SET DP TO iBTTB* 
•F80H HORK PACK * 

* • 



SOSYS 

*****B1**** ****** 

* * 
•ADD 1 THICK TO • 

* START Of VOBIC • 

* PICK ARBA * 



DETERNXlS THE 
HTJHBEB Of 

SECTORS 
AVAILABLE 



DTNARICALLT • 

EXTEND I 07 • 

SECTORS in * 

BRAD/WBITE * 

BUFFER • 



•S8T UP TO FIED * 
■ ALL OBJECT • 
•LIBRARY BHTRIBS» 



• *** 

• * 

• J1 •-> 

• * 
*•*♦ 

' GI/02/AU 
a* ■•* j \ ***•*****• 

•IOS • 

• „-,._* 

•BRAD IH 5ECT0B ♦ 

• OP DIHBCTORT * 
» EKTHIES • 



FNDBRX I 6H/0VA1 

• • 

• • 

* rmD erthibs • 



• * * • *f>2 ♦*•*•****• 

• • 
•ADD 3 TRACKS TO* 

■>• START OP WORK • 

• PACK ABEA • 



.* P6KB •■ H 
•- EHTRT .♦- 
*. . * 
*. .* 

*. . • 
* TBS 




' GI/02/A1 


•ADDDIH * 


• ADD DIRECTOR! • 

♦ ESTBI • 

* * 


**•* 

• • 

• DO •-> 

• * 
• *•* 


++***])(l**** + ****« 

* * 
•SET OP TO READ • 

* III LEAST • OP * 
■ SECTORS • 

* * 



UPDATE 

*****K3 ********** 



-•SET OP POR PIHD«C- 



•SET DP POB BEAD* 



t GI/02/ 

****PU ********* 
105 



READ IN • OF 

SECTORS 
SPECIPIHD 



•SET OP TO HRITB* 
* OH WORK PACK * 



GI/02/ 
*****Hq ********* 

105 



• WHITE OOT 

• SECTORS OSTO 

• ffOBX PACK 



T GI/02/B3 

*+**»j( ********** 

■COflTHT * 

• ADD SECTORS • 

• COPIED * 



• LAST 

SKCTOS 
*- COPIED 



BS *. 
. * • 
« 
>*. FINISHED 
*. 

•- « ■ 
*. . • 
• HQ 



****C5********** 



SET TTPE EQOAL • 
TO B * 



• ••* 

• • 
■>• Jl • 

* • 

• *•« 



*002» 
• G1* 



R I GI/02/ 
****g5*+******k 



RRITR ODT 

6IRECTDBJ 

ERTRIBS 



ACORTH 

* 



RETDRR * 

TO: CALLED 



• ■•< 

* D» 



* A4 • 

• ♦ 
***• 
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las 



ftftftft*Ql*«ftftft»«ft«ft 



SITE RCTUBB 
1DDBB5S 



•nove dibectobi • 

♦ mtO BUFFER * 



BOTE 1: SEE IB* SrSTEB/3 DISK 

STSTEKS DATA JIHAGEHEKT 
&VD IHPUT/OUTPUT SDPEBinsOH 
IOBIC EAII&AL, ST21-0512. 



BOTE 2: SEE IBS SYSTEH/3 DISK 

srsTiits ststeh coittbol pbogbab logic habual 

ST21-05O2. 



• • * • 

• •DIODSP IDS * ♦ 

• •BBAD/flBITE * • 

• • SOHTrUE • • 



7 (TOI8 1 



•IBDICATE SID OP* 
• DIRSCT08I • 



• ft * « 

• •DIODST 103 * • 

• * WATT • • 

• • BODTEUE • • 

• ft ft • 
•*•*•«***•** ***** 



* XBC1BHRIT * 

♦PQIITBB TO HEIT* 

• AVAIL BBTHf • 



OPERATION 
OR 



KID OF 
BDFFBK 



->♦ HETOBJ • 
* * 

•««**ftftft«ft«ftft*ft 

TO: CALLER 



safe 9et0bs 
address 



END OP 

ioa 



7 
••••• 

•001* 
• B5* 



. * «r/02/n 

••••*H1 •**•*«•••* 
•103 • 



iBITE OUT 

SECT01 OP 

BBTBIBS 



COBVBT 

••••H3ftft«ftft**«« 

* * 

• ester < 



• • WRKTBY 

• * [HALT/ 

• * JTSLDG) 



SAVE BETtlRH 
ADDRESS 



•*»•»•**•••♦♦•••♦ 

• •*• 

• j» ft-> 

• • 

• ftftft 
ADDSET 



•rSDICATE EMD OF* 

• 01 RECTORY * 

* ft 



ft • 

• KJ * 

• ft 
• *•• 



* iiicsBHEaT • 

♦LIBRARY ADDBESS* 

• BT OME SECTOB • 
ft • 



KDDCNr 
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TOSHTIf 

• •••E<i*«»«ftft*ft« 

ft « 

■-->* RETURN * 



TO: CALLB6 



HLTBTN 

••ftftCS********* 

• i 

■ — >* KETURH < 



TO: CALLER 



•«ft*K1*ftftft«ft*ftft 

• 
RETDStf • 

ft 


■a *«K2 ftftftftftftftftft 

• ft 

• BETAS* •< 

ft ft 


. * •. 
lfES .» • . 

ft. COMPLETELY .•<--- 

*. UPDATED .• 
* . . * 


TES 

a 


.* *. 
. * TALID *. BO 

ADDBESS .• 

ft. .* 

• . .• 

• . .• 


TO: CALLBB 


TO: CALLEH 


* SO 

I ftftftft 

* * 

(.->• 3k • 

ft « 
• •ft* 




• 



» K3 ' 

• ••« 
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• A4 • 

• • 
»**• 



SBAAC5 



***************** 



SATS BETDBH 
ADDRESS 



* SET DP B07FBH ♦ 

* FOB DIRECTORY • 

• BiTRIHS • 

• * 
***************** 



**** 
•001* 
• cn •-> 



, • COPY *, 

PEBSARERT , 

*. SECT 01 S . * 



vo 



aocopi 

***** C 2********** 

• ♦ 

•INDICATE OBJECT* 

— >* BOT COPIED •- 



**** 
SETP 



7 

***** 
•002* 
• D1* 



•set up to bead 

• so&bcb 

* dihbctobt 



* SET HP ROBK • 
♦PICK FOB FIHST * 

* DIRECTOR! * 

* SECTOR ♦ 



• READ IB FIRST • 

* SBCTOB OF * 

:**.r***z***?s»: 



SET CHAIR 
CO0"TRR - 1 



BRPBD1 

**•»*£***• 

*<naprd 



g a/o i/i' 
******* 



•FIRD DIRECTORY • 



***• 

i t 

' PI * 



**** 

ADYADR 



HOD 1 SECTOR TO* 
♦ CH1II P0IRTE8 • 



P* •. 

■ 

FODRD 



T 

***** 

• 002* 

* HI* 

« * 



*****Q2**++****** 

• • 

•ADfAHCE ADDRESS* 

->* TO BEIT TUCK • 



TLDADB 



HI 



LAST *. 10 
DItBCTOBI .*-— 



, .* 
* IBS 



****+j I********** 

• SAVE C/3 OP • 
MBIT SECTOR AMD* 

• IBDICMf* LAST • 

• SECTOR * 



GJ/02/F1 

*****H2 ********** 

• ros * 
* * 

■>• BRITE 00T • 

• DIRECTORY ♦ 

• SBCTOB * 



PERRARBBT 

•. ERTRY . 



!,0? 5***« *t**i! /0 * /M 



GOFBD 

•****G 5 ********** 

* * 
>• RESET POIBTEH • 

A • • 

.!.;• ; 



'Hi 
♦ADDEST 



*****J2 ********** 



•IDS 1 TO CflilP 
* COOBTER 



***« 

* 
L->« F 1 < 



* ADD DIBSCTOBY • 

* EITBY • 

* * 
***************** 

*•** 

* * 

* * 
• *** 

GJ/02/M 

****mj$*»******** 
•I OS • 

• * 

* BEAD SBCTOB • 

* PHOH PACK * 



*****K 

•I OS 



GJ/02/P1 
I********** 



GJ/D2yPT 

• ****jfii**** ****** 

•tOS • 



•HHITE ODT LAST • 
* DI8ECTORI • 



SBC TOE 



VRTTE SBCTOB 
OUT 



LIST *. 


YES 


SECTOR 




. * 


7 


. • 


1 


*. .* 


i 


* no 


•*•• 


1 •*•* 

* 

!■->• JU 


• f 


•* R5« 


■ * * 


* 


• •**• 


**•* 
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A1 •. 


« 












.* •. rjs 


• 












r ->*. s tipe .* 


. — >• 


SET 


TTPE 


TO 


P « 




*. .* 


• 










V 


*. .* 


• 










***** 


1 •. .• 


•********•**•••*: 


' *0O1* 


• * no 












• c«* 


* * 1 












• • 


•001* 












* 


* rn* 














•••*• 














SBT08J T 














•*••*£. |* •••**•*** 














• * 














•SET OP TO BEAD * 
* REIT SECTOR * 


























• * 














* • 















" G4/02/P1 
•****C1 ********** 
•105 * 



SAVE RrrUBH 
ADDBBSS 



• KOTE IK BER ' 
•DIBECTORT EKTRf" 



•001* 
* C2 *-> 



****01********* 
■ tITOBI < 



TO: CALLER 



BttD 


OF ». 


HQ 


DIRECTORY . 


• -, 




1 


*. .* 


• its 


• *•• 






• • 






• JU • 



•ADD OBE SECTOB 

• TO STMT 

• 1DDBBSS 



****T1********* 



•****G1 *•*••*•*•* 

• * 

* SAfE RETOflff • 

* 1DDBBSS • 

• * 


• •** 

• • 

• B2 • 

• • 

• ••• 




' 


BOTE 2 




* * * « 

* *DIODSP IOS • * 

* *BBAD/¥BITE • • 

* * * • 

* * * • 


• 

• INDICATE SAO 

• BBITE 

• 
• 


• 
• 
* 
• 
* 



•DIODHT IOS 
• RAIT 



*• BEBTBT • 



.* HAS •. *E$ 

•. 0PEB1TI0IT . * 

•. OK . • 



BETTJBH • 

TO: CAltBB 



TALID 
ADDRESS 



COOK t CJ/Oi/Pl 

•105 ' ' • 

* « 

• iHITE OUT • 

• SECTOR Or 01 R • 

• EMTBIES * 



• 


• 


• BLAIK OOT 


• 


• BOPPEB 


• 


» 


• 


• 


* 


**•• 






« • 






* J« *-> 






• • 






• ••• 






ADDRTB 






• 


* 


* BBTDBH 


* 


• 


• 



•CORRECT SECTOR • 
->• ADDRESS • 



TO: CALLEtt 



BOTE 1: SEE IBH SI5TEH/J DISK 

SISTERS SrSTEH CONTROL P80GRAH LOGIC HABOAL, 
SI21-0502- 

BOTB 2: SEE IBH SISTEB/3 DISK 

STSTEHS D1T1 BABAGEMEBT 
IBPOT/OOTPUf SUPERVISOR 
LOGIC SAHDAL, SI21-0M2. 



• *** 

• * 

• H2 • 

• • 

• *•• 
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• * 

• A4 • 



SBABCO 



CKCOPI 



► EITM « 

l < 

•*****••••*••*• 



••••31 «****•**•* 



SAVE BETUBS 
ADOBBSS 



•OETEHaiEB » OP 

• SECTOBS 

• AVAILABLE FOB 

• BUFFEB 



•••**P 1 •**•«**•*« 

* dtha1ic1llt * 

* allocate * 

* sectobs fob * 

* bbad/irit2 * 

* bofpbb • 



* * 

• • 
• •** 

OUTLOP 



•SET OP TO FIJI! 
"tCT LIB** 
BHTSTBS 



•OBJECT LIBEABl 



r GK/0 2/H1 



• 103 



•BEAD XV SECTOfl 
•PBOB WOBK PACK 



*•*• 
02-E 1*001* 

* Fl ♦-> 

* * 

♦ ♦♦• 
PNDBRN t SH/01/A1 

•tHAFIID * 

• _------• 

•GO Tin OBJECT * 

• LIB EBT1T * 



AD *. 

.*MODGH *. 

-• sectors 
*. auxlabls? 



• TBS 



C0PBUF 



•t OF SECT0B5 
• BE COPIED 



♦ RODIFT • OF 
■>* SECTORS TO BE 

* flOTEO IB 



*SET UP TO COPT * 

• SECTOBS FBOB * 

• BOER PACK * 

• * 
••«**•***•*•***** 



GK/02/fll 



* COPT SBCTOHS 

• FttOTf VOBR PACK 



' GK/02/A1 



* IMCBBBBHT 
•SECTOB COOBTBB 



> 


* 






• *•« 


LAST 




• . 


10 


• * 


SECTOB 






#-~_ 


->• A« • 


COPIED 


*" 


• 




* * 



UPDATE 
DI1ECT0BI 



HI 

i 

E_. , 
FOOH 



EITRI 



CKTTPB 

.*" 
— >*. 



R2 •. 
i 

TTPE-0 



POTLST GK/02/R1 

•****B3 **•••**••• 
•TOS • 



->* itbite OffT • 

• BEBAIBIIG DI- • 

* BECTOET E»T3T • 



• * 
•MOVE DIEHCTOBT • 

• EITBT IETO * 

• BOFFBB • 



* II 



• • 

>* 81 • 



• ••• 
•00 2 • 

• B1 *-> 



RCORTH 



• SATE POOKD • 
•DIHECTOBY BBTRT" 

• ADDBE5S • 



bud OF 

SECTOB 



•SET UP FOH BEIT* 
■>«DiaECTOBT EHTHT* 



> At • 

► • 
• «*♦ 



TO: scUifiu 

BE-lLtOCATE EAIHLXlIZ 
PRASE 



*002« 
• A1* 

• • 



• «*•< 
•002* 

• M» 
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•IBDICATB EIO DF* 
r ->* SECTOR • 



•001» 
* JB* 
*•••• 



esd or 

DI SECTOR? 



J 

• 001* 

* J3* 



SAVE 8STPHH 
ion A ESS 



GK/02/A* 

•COBVBT * 

• ~i»CEEBBBT~To"» 

• SBXT SECTOB * 



• **♦ 

• CM *-> 

» • 

• ••* 
AODSCT 

♦opdate the hork* 

• pick address * 



• •** 
*001* 

• J5 *-> 



SET IT* 10 
tBTIItJS TT1D 



*•*•* 05 ••••••*•• 



♦ADVANCE TO BBXT 
■>* TRACK 



k Bl .. 
TTPK-0 



♦ . 



BO 



•001* 
* G1* 



• IBCBEBEBT 
•5ECT0B COUSTEH 



•100 # TO ACTUS* 
• 1 C0U1TBB *- 



V 
***** 
•001- 
• G1* 



. • OPDATE 


*. wo 


. COHPLETB 


.* ■ 


*. 


♦ l 


*. .♦ 


1 


*. . • 


» 


"IBS 


**•♦ 






• * 






• Clt • 






• * 






• «*• 










* 


RETOBB 


• 


••**»•*••••• 


• 




TO: 


CALLER 



BOTE 1: SEE IBH STSTEH/3 DISK 

SISTERS DATA lUBIGBBBBT IIPOT/OOTPOT 
50PBBVI5OH LOGIC SAIOAL. 5121-0512. 



BATES 



SATE BETWH 
IDDHESS 



BOTE 2l SEE IBB 3T3TBB/3 DISK 
SISTERS STSTBB COHTBOL 
LOGIC BABBAL, ST21-0502 



80TB 1 
*+«**j2****#*«*« 

• * * 

• •DIOOSP IOS • 
■>• ♦8EAD/WBITE * 

• • aontiKB « 



PBOGKAH 



•DIODWT IOS 

* If A IT 

* BOOTIBB 



■>*. OPBBATIOM 
«. OK 



TO: CALLEB 



]' BOTE 2 

* * 



• * 

• • BEBTBT • • 

• •HALT/STSLOG* *■ 

• * * * 

• * • ■ 



RETOB* * 

TO: CALLED 
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true as 



BKTEH 



***♦ 




• • 




• Aft • 




» • 




• ••• 
1 




1 
.•• 


GL/01/K1 


id *. 




.• LAST • . 


•IOS * 


source • . iro 


• * 


LIBBART .* 


>* BBITE SECTOR • 


. SECTOR .• 


*PHOfl BOBK PACK • 


*. .* 


•TO BBB SEC LIB • 


•• •• 





•IBDICATB BID OF* 
• EBTBT • 



• • 

* INCRBHERT * 
•SBCTOft POIBTER ♦ 



• C1 •-> 

• •*• 

SBTfBD 

•««**Cj ********** 

•SET OP TO READ * 

• SECTOB • 



IOTE 1: SEE IBB SISTEH/3 



DISC 
SYSTEMS D1T1 ' 

SOPBftYXSOE LOGIC BAIKAL, 



L 



SL/01/K1 
•••**C» ♦•*•****•* 
•IOS • 

• * 

♦BHITE OCT LIST • 
•SECTOB OF BHTHY« 



*****Q]****«iM 

• IOS 

• BBAD FIB ST 

• SECTOB OP 

• ENTRIES 



GH/Ol/Al 



• SOURCE ARD • 
•OBJECT LIB PI BO* 

• ROOTIHE • 

•••***•••*•••••** 



BBTRT 

POO ID 



SEE IBB STSTEB/3 DISK 

STSTEBS STSTEB COBTBOL PROGRAM LOGIC BAIOAL, 

ST2I-0502. 



•PDT ADDRESS OF 
•LIST SECTOB II 

• DIBICTOBT 



UPDATE YOLDHB 
LABEL 



EBD 
SECTOB 



TBS 



•••••Ft ********** 



• SET OP TO 

• COVTXROE BIRD 



•****G1 ***•*****• 

• • 

• IBCBEBBBT TO • 

• BEIT ERTBT • 

• • 



• ••* 

• • 

• HI •-> 

• • 

• ••• 



BEDPRfl t GL/OVS' 

**«**[l-1 ********** 

• IOS • 

• READ SECTOB •- 

• PBOIl 1IORK PACK * 



****£ -|********* 
• BITES 



•••• 

• • 

• GO • 

• « 
• **• 



**•****•*•****••< 
«*•* 



• ••* 
CKTTPB .*. 

04 •. 



SCRATCfl 



TBS 



*****GS**** •*•••• 
• * 

•SET DP TO RBAD • 



• ••••(]2****4 

• IOS 



L 



• •*• 

• • 

>• C1 • 

• * 

• ••• 



■>*»EAD SECTOB OF 
•SPECIFIED 'TO* 



PACK • 



.THE 'TO' PACK IS 
.TBB EEfl SOOBCB 
.LIBBAIT PACK 



BCSBTI 

.....I........... 

* aETUfil • 

• * 
*************** 

TO: CALLEB 



HALT BOTE 2 

*****J4 *****••**• 



• • REBTBT 

• * (WALT/ 

• • SISLOG) 



• •••^••••••••» 



* •DIODSF IOS • • 



BO&TIBE 



OPBRATIOI 
OK 



IBS 



TO: CALLB8 



**«*KS********* 
• • 

->* EETORB • 



TO: CALLED 
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* Bt * 



CKOBJ 



.« P TYPE •. RO 
■>*. LI8HARY . ■--- 



.• 03.IPCT *. IfES 
>•- LIB EXIST 



GUFISD # GH/02/A1 

aa a a* gtf *»*******« 
•IOS • 





• YES 




« YES 


L 


J 


SCEX .*. 


HALT HOTE 1 


Cl 


•*#»*C2 *•«••*•»*» 


.» a. 


« * * a 


.• 50DRCK *. BO 


• * NEJfTRY * • 


a. .♦ 
•- •• 


A • ■ SYSLOd] • * 

* • a # 


• YE5 


• 1.. ••—•« — 


***♦ 




« * 




• * 




• C2 * 




• D1 •-> 




o * 




• • 




• •** 




+ + ♦* 








LIBBX i (JOTE 2 






*****I>1********** 


1 




• • 8RNTSY * • 


**#*02*******« a 


• • (LOAD IS • • 

• * ?IND * * 


• * 

* RETURN * 


• • ROUTIHE) * * 


• • 






TO: SHUNT 

HAIKLIHS 

LIBRARIAN 

PHASE 











I :. 



READ ROUTINE 



• ••• 

* a 

* B5 • 



:***g5****a*aa*a 

* 

JlEPLACE OBIG * 

MAKE VITR HBB • 

MAKE ♦ 



» HO 

I •**• * a 

| • • * Dl • 

■-->• C2 * • * 

• a. *«*• 

3FND1 



V GH/01/A1 



aa*aac4«********a 

•Jnafsd • 



• FIND ROUTINE • 



GR/02/A1 
••**C5*«* ••••••• 



• Hdi7E rootihe • 



15 NAflE 
POUND 



LDHANT 



♦ LOAD LIBBAJlIAcT 

• HAINLUB 



• ♦•a 

■ 4 

> C2 < 

> 4 

• «•• 



' RBTAIB *. HO 

lbtel sms .*— 



♦ YBS 

aaaa 
*00 2* 
L->* B3 ♦ 

• • 

♦ *+* 



E2 *. 

-♦ *. 

■>*. NABE.ALl 
*. « 

*. .* 

* YES 



♦ **♦* 

♦ 002» 

♦ 83* 



aaaaac-jaaaaa + aai 



•PUT NEK HAHE IN* 
■>*PISD PARH LIST « 



HOVE ORIGINAL 

ItAflE TO PTND 

PARH. 



V G1/01/G1 



****E^*«******* 
i * 

' EXIT * 



TO; XHAINT 

BUHL HE 

LIBBABIAS 

PHASE 



•fflAREfl 

a-_ — 

• 

* 8UTLD TOfl 



GB/01/G1 



BOTE LIB TYPE * 
ID FIND PAHH • 



LIBRARY 
TYi>E - 



* an * 

* a 

NOTE 1: SEE IBS SISTEH/J DISK SYSTEBS 
DATA MANAGEMENT AMD INPUT 
/OUTPUT SUPKBVtsQK LOGIC 
HANUAL, SY21-0512. 



SEE IBP) SYSTEil/i BISK SYSTEMS 
SYSTEM CONThUL PitOGUAH L001C 
BASOAL, SY21-05U2. 



•BUILD ♦ 

• REBUILD PINO~ • 

♦ PARB LIST • 

a a 

*****aaa****«a*+* 



f QH/0 2/A1 



•HBITE DIHECTUiT* 
• SECTOR • 



BFND2 V GK/0VA1 
••a aaHK**** •••••• 

•1MAFN0 ♦ 



• FIND ROUTINE • 



OBJLTfl 

aaaaaji ***•••***• 

• a 
MOVE IN OBJECT * 

• LTB DIHRCTDliY •<- 

• POINTER • 



LIBRARY 
TYPE = k 



aaaaajjaaaaaaaaaa 
a * 

•HOVE I* SOWRCE • 
>• LIP DIdECTOhY » 
♦ VOISTBH • 



a* a*K3 ********* 
a < 

• ftETORl ' 



-*. 

Jtt •. 

. • IftS ' 

• ORIGTSAL 

NABB 
•• FOUND 



aaaa 
► > 

* B5 < 
t i 

aa*a 



**a«r 
► C2 * 



TO: CAHEH 
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IOS 



•****B1 ********** 



54T8 BET d Hi 
ADDBSSS 



01-E1 
***** 
•001* 
• B2* 

* • 



STSftER t 

*****B3*****«*«< 



* SET TO BEAD 



* BOTE 1 
•***«q 7 **•••***•* 

• * * * 

• *DIOD5P [IOS* • 

• •BSlO/TnttTB)* • 



LELIB 9 

•****C3 •*••**•< 



•SET CODE FOB 

• PiesT nn 



ROTE 1 
••***D1***«****** 



•DI0D3T fTOS* ♦ 
• HUT) • • 



SETOB T 

*****D 3 ********* 



SET TYPE AID 
HARE TO FIffD 



B1 



GOOD 
DPEBATIOl 



.* 
,* 
MO 



•••*B2 •**•*•*•• 

• < 

■>• ftETOBM « 



TO: CALLES 



GS/02/A1 

•****E 3* •**•••*•• 
•IOS _• 

• BEAD II FIBST • 

• SECTOB 0? DIB • 

• EMBI8S • 



**•* 
BF1D3 t GB/01/11 



INDICATE BIO 
OPBHATIOH 



* rl*D ROOTIBB • 



V N0T2 2 



. *. 

S3 *. 



KOTE 1: SEE IBB STSISH/3 DISK STSTSHS 
DAT* RABAGEHEtTT ARD IHPOT 
/OOTPOT SDPERTISOR LOGIC 
SAROAL, 5T21-0512. 



BOTE 2t SBE IBB 5ISTBB/3 DISK STSTEHS 
SISTER CONTROL PBOGBAK LOGIC 
nilUL. SI21-0502. 



'LSI 
**< 



• • BEVTBI 

• ♦ [OUT/ 

• • STSLOG) 



• SET TO BHITE • 
->• LAST SECTOB •- 

• • 



• »««fl1«******** 
I BBTOBH < 



LEVEL 
CHARGED 



GV02/A1 
*****g5 ********** 

•IOS • 

»__________._.-.. — • 

->* HBITE LIST • 

• SECTOB Of DIB • 

• EBTBIES * 

**•**••****•****• 



•***H 5* **••*••* 
I t 

* SXIT * 



IRAIRT 

.11 in he 

LIBRARIAN 
PRASE 



(IOTE IV no 
BINE 



CFIRD 



TO: JHAINT 

«Al»LlRE 

LIBRARIAN 

PHASE 



• SET COBTIHOB • 
•FIRD KITH WRITE* 



• ••• 

* • 
■>• F3 • 

* • 
**•• 
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* • 

* * 

* HFITIALT2E * 



■ • . 

CI *. 
,* * 

.* DELBTE 
*. PBOfl *0« 
*. LIB 

•- «" 

*. .* 



8ETAIN *- YES 
- T .♦ 



*. .* 
♦ HO 



1ST *. IfO 

TEilP .«— 

EHTBIBS . * 



• TBS •*♦* 

* * 

* * 
**»» 



D1 •. 
.» ft. 
,* DELETE •. YES 
- -Hi, .• 



*. PROA A 

*. LIB 



•002* 
* 62* 



• B LI Hit OUT ALL • 

• TEHP RHTRIES * 



«•*«•*«••«*««*■*• 



E3 



■*l 



DELETE 
ALL LIB 

HAHES 
>. . « 

*- . * 
♦ MO 



• * 

• SET INDICATOR * 

• TOR »FTTE AK& • 

• COSTIHUE * 



DELTP6 



DELTP7 



> EJTBSDBD •. KO 
E»D x ALLOC . *--- 

BUD .* 

*. .* 



> 52 « 

• ♦•• 



DELETE 
PABTIAL 

hahes 



♦BUILD PlBfl LIST* 

* POB FIltD, TO ♦ 
•DELETE A 5IHGLE* 

♦ HIRE • 



BILPAB 



*80ILD PABfl LI5T* 

->• TO DELETE * 

* PABTIU. HADES * 



(JPDAT2 SYSTEJl * 

DiHecToar * 



•♦••ft ♦••**•*•**♦• 
• ft** 



• **• 
BILTTP ? 

♦•♦•♦52 **•*•**•*• 

•BDILD PA8« LIST* 

♦ TO CHECK TTPE ♦ 

* OaLT • 



'^H/01/1' 



DELT15 « 

•♦••♦^•••.•••••ft* 

• * 

• UPDATE srSISH • 

• BISECTOR* • 

• • ■ 

• ♦ 
•••*•*■»■••****•• 


* * 

* * 






ft 

* BETDRH 

ft 


* 
* 
« 




TO: 


(tflAIBTl 
LI8RABI1M 
AAIMLIITE 
PHASE 



►♦•••B2< 

►*BAF1D 



•PUD 5PBCIPIE0 
* El TRY 



FIHD SPECIPIED ♦ 
EBTBY • 



ESTBT 
POCTBD 



• 002* 

* 31* 



♦ *♦< 

i 

► J* 





*. 




ERRCHK 




►- ERROR 1 




J2 *. 








J3 


ft. ft****,;))********** 


« * •■ 






, 


ft 


ft. ft 


ft 


HE8TBY * • 


.* EHTBT ». 


ro 




.ft 


AFT *. HO • 


MALT/STSLOG* ♦ 


*. POOHD .• 






>*. gHTBY 


POUND .* >• 


• 


BETUT 08 * * 


♦. .♦ 






ft. 




.* k • 


• 


CAHCEL * * 


*. .* 
*. .* 

• YES 








ft, 
ft. 
i 


( •" 


ft 


• * 








>*YES ft*** 


RETBYI 










• ♦•ft 




• * 














•00 2 


ft 


• J4 • 




1 










* C1 


•-> 


ft • 




Q 










• 


► 


***• 




«•«• 










• •«• 








• * 


1 


' 




upon- 








* K3 * 


••• * »K2 ****♦•**»• 














• ft 


• * 






• •• 


► K3* 


**•••«• 




*••• 


• SET NAHC AND • 






• 




ft 






* TTPE » BLAMK •- 


-—-i 




• 


S7.T 


IftH • 






ft • 


1 




• 




ft 








1 
♦ ••« 








TO: [SEAIHT] 
LIBRARIAN 




















* 


* 






flAIBLlHE 








• E3 


• 






PHASE 


























• **« 















Chart GN (Part 1 of 2). Delete Mainline Phase 



Program Organization 7-61 



•**•« 
•00 1* 



• *»•• 
•001* 

• D1« 



pes* r, 

•••••Bi •**•*••••• 



• SET BABE ABD 

• TIPS « BLABK 



1LLLIB V 

*»***B2 ********** 

• * 

• POIHT TO ALL • 

• LIBBilT TIPES * 

• • 



■DATE 

•••**C1 ***•*♦•*•• 

• * 

• ■BITE SBCTOH • 

• ABD UPDATE • 

• DIRECTOJH * 



• 001* 

• K3* 



DELETE 

PARTIAL 

HIRES 



* TES 



'. BO *SBTtIP TO DELETE* 

,* >* HIHE THOU lit * 

• * LIBRARIES • 



>D2< 



• SET PAITI1L * 
+ BABE AID LBBGTB* 



*•♦• 

* * 

L->* E2 • 



• • 

• 82 *-> 



• ••* 
DELETE 



CI/01/ 
•••••B2********* 
•SHAPED 

♦ piiiD'sPEcipiiD 

* BABE 



.*. PEBH 

P2 •. •••••r3*«**««*« 

*. • 

HARE *. TBS * SET IAMB AMD 
POOBD .♦ >* TYPE - BLANK 



.* BABE » 
'. .ALL 



••* 


* 1 






• 


• 






* G2 


•->! 






• 


• 1 






• •• 


■ * 






LIBCBK 


02 *. 






. 


► • 






.* 


LAST 


• . 


BO 


• . 


LIBBABT 
CHECKED 


. 


• „---... 


*. 


. • 





••«**^3 ••**•••••• 

• * 

• « 
>* SIT BBXT TTPI • 



L 



•••• 

>* C2 • 

• ••* 



• TO BBITE AID * 

• COWIBUE * 



♦ • 

,>• g2 • 



L 



••** 

>♦ E2 * 



.• All 

•. TTPE PDOBD 



• 10 
I 



• BBBTHT 
♦BALT/STSLOG 

• BET1T OB 

• CABCEl 



BETBT 
<_- 



•••••••**•••••• 



TO: fSHUBTl 
LIBBAJBlXl 
HAIKLIRB 

PHASE 
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mess 



irri 



SEE IBS SYSTEM/3 

DISK SISTEUS SYSTEM COBTBOl 

PBOGBAM LOGIC FIANUAL 

ST21-0502. 



•****Cl *••******* 



LOAD tlUPSD 
SS5TSP 



***«*Dl ********** 

* 



t KOTE 1 
****«B1***« ****** 

• * * * 

• * * * 

• * JJSYSP • * 

• * ♦ • 



mo A BKC 



G1 < 
CEKD 



*****G2********i 

SET EOP 
" _ TIOB 
ST5P 



■>♦ COROITIt 



►H2' 



MOTE 1 



• * • * 

* * JJSYSP * • 



* * 

* * * * 

* * SiSYSP * • 

* * « * 

* * * * 



to: tmitr 

HAItaiffE 

LIBRARIAN 
PHASE 
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EHTEB 



• * 

• pehposh • 

• housekeeping * 



.* COPT *. 

STSTEH 
•-BEQOBSTED.* 



.♦ DOBS *. 
.•IIB « ILL, •, HO 
'. RUHR = .*--- 

*- ALL .♦ 



STSCPY .*. 

C2 *. 

. •EIOOGH *. 
.♦ SECTOBS •. IBS 

— >*. AVAIL FOB .* 

*. STS .• 



* * 

* 33 * 

* 4 
• +•• 



* 

INDICATE HOT ♦ 

EIODGH BOOS * 






• **•• 
*QQ2« 

* F2» 



HOT*! SBB IBB SISTEM/J VTSK SYSTEMS 
SYSTBB COKTBOL PBOGHAH LOGIC 
HANBftL, ST21-OS02. 



E1 •. 

FHOB 

SODHCE 

BXIS1 



TO 

SOUBCB 

EXIST 



• EHOOGH 

SOOK 
•. . * 



*. IBS 



DB0 2 



BOTH 

5XSTKB 

PACKS . 

*. .* 

•• .• 

• TBS 



G2 



' HI • 
► * 
♦ ♦•• 



.* KBIT *. 

*. IT AIL - DIB . 

*. POIHTEB .• 



* HO 


• ••• 




• * 




• HI *-> 




• * 




♦ ♦•♦ 




BPHILT 1 


\ 



* YBS 



* JI07B IB BALT ♦ 

* CODE * 

* « 



• ••* 

* * 

HILT 



BOTE 



• * # * 

• • BEHTRT • • 

• * {HALT/ * • 

• • STSLOG) * * 

• • • ♦ 



* « 

h BBTOKH * 



maim 
baihlihe 

LIBHAfilAB 
PHASE 



• BJt • 



H2 • . 

.* *. 

.* PHOB *. 1 

♦. ACTI7E < TO . •■ 

•- A7AIL .* 



• *•♦ 
» • 

► J2 •-> 



DP03 



B3 



• *•* 
HALT1 

•••••J2< 



* BOTE IN HALT 

• CODE 



L 



4 



>*. ACTIVE 

*. 

• •*• 

• • 

• J3 •-> 

• • 

• •*• 
DP01 

J3 



• J2 
• ••« 



• TO PACK *. 

SARE AS 
•.PROM PfcCB** 



T 
***** 
•00 2* 
• D1» 



KEHHAKE *. TE! 


> 


. • 


T 


.• 


***** 


*. . • 


•002* 


* HO 


• D1« 


• ♦ 


• * 


• 




* • 
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5ETSTS 

*+**»45********** 





*••• 




* 


• 




* 


. • 


COPT 


• 


hi 


• — 


— - >*. 


srsTBU 



TBS 



* FOR 
->* WAHB TO M.t 



B»' f 

LEIG TO X«02' 



L 



S8B IBB STSTZH/3 

DISK STSTEES SISTER COBTBOL 

FBOG81R LOGIC HAVDAL 

ST21-0502. 



r* 



01-J3 
*•*♦• 
•001* 
* K3+ 



COPT 
ILL 



B4 *. 
* 
COPT 
ULL 

.* 

*. .• 

* tro 

I 

. •_ 
en *. 

l *. 

SXBGLE 
HODD LB 

copr 

.+ 

*. -• 


• * 


IE5 


• «»* 
SETALL 

***«*B 5 ********** 

* • 

* roa 'ejd' set * 


TES 


* & LBVG TO * 

• * 


* * 
L->* E* * 

• • 
• *** 

•**«*C5 ********** 

* roa 'Mo* set • 

* vine rton * 




* L8EG TO 1*06* • 

• * 



PAHTll V 

•*»**P4* *♦•***••• 

• GET PARTIAL * 

• VAKB 5 LEEC • 
•rSOIl STATENEUT * 

• COP1MOM * 



CPTALL 



10 .* LIBtlBT 

*. ILL 



E» 



LIB * 
ALL 



••*»*£5**** ****** 

* • 

* GET tipe f»ob • 

■>• COHflOK • 

* statebeet * 



SETOK BOTE t 



STSTEB *. 
01 «FBOB» 
.PICK * 



• * 
■ >• * 

» * * tHicaf) 



I •• 



HEBTST 

(LOAD 

iitc-- 



•SET TYPE TO »0«* 



SET! ST 

•****Q J ****•*»*•■ 

• TUT I OB TO * 
••MOM* LIB DIB *<■ 



* * 

♦00 T* 
* C2* 
***** 



LABI t G0/1/A1 

*****G2 **♦**•*•** 
**HAC5T • 



• ••• 

t i 
► G1 < 



• *** 

TSTFSD 



HILT VOTE 1 
*****G5* ••*•*••*• 



•COPT IIP. IPL, ♦ 

• COBTG BBCOHD& * 

* • 



JIOSOLE 

LOADED SH 

OH 



TBS 



(HALT/ 
SlTSLOG] 



t**tfl ************ 



bead *raoH* 

OBJ LIB DIB 



EOTE 1 

• *MBfTBT LOAD* < 

• * shafxp & * < 

• * SAVE • « 

• • ADDRESS * * 

• • • < 



LOAD 2 

•***H5********* 

* < 

* BETUBH * 



JKAIBT 
BJISLIBE 
LIBHAMIAM 
PHASE 



GOOD 
HEAD 



**•• 

• 4 

■>* AD « 

• t 

• ♦*♦ 



•NEETRT LOAD* 

* SRAOLR 5 • 
•SET SMITCH • 

• 01 • 



•SET 'BAD READ 1 
• HALT CODE 



HALT BOTE 1 

*****K2 ********** 

• • * • 

• • BEBTBIT * * 
->• * (HALT/ 

• * «r~- 



(SLOG) 



* * 



LOAD 
>• fiETURS 



rO: SHAIHT 

IIAIHLIHE 

LlBftABTAK 

PHASP 



LAB2 t GB/1/A1 

• ****Xij* ********* 

♦SNATSD * 

• * 

*FIBD 'PBOH' OBJ*- 

• DIB ENTBY * 



V 

***** 

♦003* 

• fll* 

* • 
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***** 
•002* 



**** 

• • 

* * 
*•*• 



B1 



T8B Dl 

BHTBI 



ID 
IIR. 



*••* 
•006* 
• H3 • -> 



• *•• 
fflDSAH . •. 

CI *. 

-• 1ST *. 
.* CHAB OF *. I 

*. ENTHT RABB *• -« 

«. BL1HK 



B2 •. 
> *_ 

*. 1 
LIB-ALL .•- 

. • 
>. .* 

• _ ,* 
• MO 



DIBECTOB? 

PULL 
■. .♦ 



*. TSS 



• **•< 

♦006' 
■ J»< 

• * 



I 

***** 
•006« 
• F5* 



•bote 'PRon* obj* 

•DIB ISTQ COBBOH* 

• SAVE ADDS OP • 

• C/S OP 'PROS' • 

• LIB HIT IT • 

***************** 



• SET 'IOT! FOOITD'* 

• CODE • 



a**************** 

***+ 

* * 

* 02 •-> 

* • 
**•♦ 

ULT 9 BOTE 

*****q2********** 

* * • • 

* * BEHTBY * ♦ 

* * (HALT/ • • 

* * STSLOG] • « 



HER 



LIBKP V 

*****C3 ••*•***••• 

• SAVE "TO' LIB * 

• BBITB C/S AND • 
•LIB START HRITB* 

• C/S CODSTBR * 



•GET f SECTORS C* 
•SET LAST SECTOH* 
• SB ITCH OPP * 



***** 

• 00(1* 

• A3* 



•••*E2 •*•••••♦• 

• i 

• BE1C1RH * 

• < 

*•*•••*******•* 



*•** 
• < 

>* D2 « 

« i 

• ••• 



: s1 : 
•••* 



TO: SBAIBT 

FIAHILIVB 



li8habian 
Phase 



.* NA 


IE «. 


•- ALL .* 


*. . • 


*. . • 


♦ . -• 


* HO 


• •** 




* • 




* G1 •-> 




• *•• 




TOOIB 1 


r 


• * 


•load conaon to * 


•XB2, IOB TO ZB1* 


• • 


* * 



•****P2 ••*•*»•**• 

• • 

• HOT! EBTIRE • 
■>• BASE TO «TO» • 

• IOB • 

• • 



■OTE; SEE IBB STSTEB/3 DISK STSTEHS 
SYSTEH COVTBOL PBOGRAK LOGIC 
HAITDAL, SI21-0S02. 



LAB3 (( T GR/01/A1 

•SBAOLB • 

* ,_, * 

•OBJECT LIBBAST * 

• HANDLER * 

• * 



BOON 

FOOBD 



*****j2**«*«««««» 

• • 

• IBDICATB HO • 

• BOOH • 



*••• 

• • 

->• 02 * 

* * 
*••• 



FALID •. BO 
IEPLACE .* — 



•• -• 

• TES 



• •** 
» • 

• B3 • 



* INDICATE ■ 
->*BBPLACE A PEBn * 

* tflTH A TEI1P • 

* * 
•******••••***••• 

I .-. 

i->* D2 • 

• * 

**•• 
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■005* 
* F1* 



CKCOPl 



' SRCTOES *, 
IM BLIPFEB > . 
'. t TO COPT** 



• ADJOST t OP * 
•SECTOHS TO COPT* 

• bt # beihg * 

• COPIED • 



•***«C3* ********* 

• HOVB * or • 

• sectobs bbisg • 
•copied ibto iob* 

• bup • 

• * 



COPBtTP 

« * 

* HOVE TOTAL • * 
-->*SECT083 TO COPT* 

• roa BUT • 



•SET LAST 5BCT0B* 
• SH on • 



•SBT SECTOBS TO 

• COP? IHTS 6 

* bead c/sa 



.***• 23 ••••*♦»*•• 



• IMIT READ/SHITE* 
•IOB POB I BEAD • 



SEE IBB SJSTEM/3 

DISK STSTEHS 5TSTEB COWTBOL 

PBOGBAN LOGIC BABQAL 

SY21-0502- 



BEAD »PFOB' 
LIBBABT 



C3 



.« GOOD 
READ 



* • 

♦POT BHITE C/S a* 
>* IB SEAD/EBlTE *- 



••***G 5 ********** 



*I»IT SEAD/HRITE* 
■>* IOB POa KRITE * 



##*«*[j3 •*•■*•**** 



•SET "BAD BEAD' 
• BALT CODE 



•H5« 



HEITE *TO< 
LIB 



•*** 
• J3 *-> 



*••« 
[ALT 



HOTE 1 



* * KEHTET 

* * (HALT/ 

* • ST SLOG) 



J5 *. 

i •. 

GOOD *. IBS 
WBTTE .* 

.• 



HO **<*• 

•005* 



> ftETDB)! ' 

* t 

**•••*«♦•*»•♦*» 
TO: IflAIWT 

BAINLIME 
LI BB AH I AM 
PRASE 



*«**«K5 **»•**#«#■ 



•SET • BAD WRITE'* 
• BALT CODE * 



• •** 

* • 
L->* J3 • 

• * 
■ ••* 
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COffVBT 



•00U* 



GET 'PBOH C/S 
LIBBABT ADDS 



GP/05/A3 
•****Ci+**» ****** 

•COSVBT * 

* -_• 

• UPDATE C/S Of * 

• THE- fHOd ABO TO* 

• OBJECT LIB. • 
»•************««* 



•*«**D1***«*«»**« 



EtfTEB 



•••**B3********* 



* INITIALIZE 

♦ SBCTOH COUBTBB 



♦**• 

« 
' C3 *-> 



■* *. TES 

*.BH0-OP-TBACIC .* 



**»»*C4« *«**•*••« 



* ADD X'20' TO * 
->*SO(TlfD OOT TBACX* 



ADDCST 

•«***D7 »**+«+++*+ 

• « 

*I1TCHEASE SECTOB* 
•COVHT1& BT ONE * 



OP/0 5/ A 3 

••••*E1 ♦♦••••*•** 
•CONTET • 

» ,_-...-• 

• UPDATE C/S OP • 
•THE PBOB AID TO* 

* OBJECT LIB. • 



E3 *. 

.•HAS C/S*. 
* BBBH *. Tl 

, CDHPLETELT .*— 
*. UPDATED .* 



10 

• < 

>• C3 < 



»su****< 

BRTDRI 



TO; CALLER 



.* WAS *. TE5 

». LAST SECTOfi .* 

*. COPIED .• 



••••• 
•ODft* 
• A3* 

• • 



.*. 

P3 ♦. 



.* BID OP 

>*. LEAST PIT 



f% *. 
" AT A 
D-TTPB 
(10 DOLE 
BMTBT 



RTfPE 

**«**7$»«** ****«• 

• ADD SECTORS • 

• COPIED TO * 
— >• ACTITE R-TTPE • 

• *P» 5ECT0BS • 



_• 
BO 



••••*G2< 

• * 

• 3DBT OHB PBOH • 

• AVAIL 'T« • 

•DIRBCTOBT BBTHT* 



*SET KEXT AVAIL • 

• 'P< % »T» ♦■ 

•LIBBABT SECTOB • 

* • 



ADD SBCT0U5 

COPTBD TO 

ACTIVE O-TTPE 

P-SBCTOES 



H2 *. 
.* 1ST *. 
.♦ AVAIL »T» *. 10 
*. BBTKT* .♦ — 

*. BKPTT .* 

*. .* 

*. . * 

♦ TES 



**** 

• • 

• * 
♦ •♦* 

ACT3CT 



•POT BEXT AVAIL 

* «T« BETBT I* 

• 1ST AVAIL «T 1 



ADD SBCTOBS 

COPIED TO 

ACTIVE LIB 

SECTOBS 



WEXTAV 

*****K2* ********* 

* ♦ 
•SET KEXT AVAIL • 

* »T» DIK EBTRT *■ 

* • 



»****K3 ***•**•**• 
» SDBT • OP • 
•SECTOBS COPIED * 
■>*FHOB AVAIL 'T' *- 
• LIB SECTORS ♦ 



IBIT IOB TO 

BEAD •TO 1 OBJ 

DIHECTOBT 



•006* 
• ttl* 
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•005* 
• J«* 



♦**• 
■ i 
> B3 < 
i t 



***B1 •*♦•♦**•***< 

' BEAD 'TO* OBJ * 
DIRECTOat 



.* AT A 
•. TEHP EBTBt 



*SHBT ODE PBO* M 

• OF PEBJ1 AHD • • 
■>* OP TEdP DIB * 

* EHTRIES • 



GOOD 
BEAD 



• 

♦SET 'BID BEAD" 



• tes 



BOPP 



• « 

• IBIT JOB TO • 
•BBI1B 'TO' OBJ * 

• DIBECTOBT * 



• ♦•» 

• D2 •-> 



HILT 



* * BEWTBY 

* * (HALT/ 

* • STSLOG) 



■BITE »T0» 
OBJ DIBECTOBT 



••♦*»*»•**•*♦***• 



****B2********* 

► RETUBW ' 



TO: *RAIBT 

HAlMLIIE 



m 



•i 



GOOD 
WRITE 



• TES 



♦SIT 'BAD BBITE'* 
->• HILT CODE • 



* * 

->♦ D2 ♦ 



TSTHOD 


». 






C3 *. 




.* *. 




.* 5TSTBH *. >0 




*. bike .*— 




*. .* 


1 


* ,* 




*. . • 




♦ tb$ **** 


i • 


• 


• 


&3 * 


* 


• 


1 


• •* 


.*. 


BOTE 


D3 *. 




.* *. 


• * BEBTBT * * 


.♦ STSTEfl *. IRS 


• • (SSOXBP • * 


• . .* 


• ♦ TBAWSIENT • • 




• **BP«5SESI • • 


•« . * 


* HO 






»**• I 






* * 






* EJ •-> 






• •** 4 




MorSYs .♦. 


.*. 


E3 *. 


E» *. 


.* *. 


- • *. 


** I COPT *. IBS 


.* A LIB. *. HO 


•- ar iabb ,*— 

*. BEQDEST .* 


>*. Ill BEQDEST .* — — 


*. .* 




*. -* 


*. .* 


*. .* 


• NO 


• IBS 


• •** 




1 


• 006* 




1 


• f3 ♦ -> 




t 


* * 




• ••* 


•**• 




• • 


COBTTf 




♦ P3 * 


**«••? }*•** ***••• 


• * 


• « 


•*•• **** *••• 


•INITIALISE PIMD* 


• • * • 


• TO COBTIHDE ♦<— 

• PIBD * 


— • P3 * * f3 • < 


* • * * 


* * 


• *** 


*••• 



STSTBN 
COPT 



*. .* 
• MO 


1 
• • + * 


I 


• • 


| 


• P3* 

* * 
• **♦ 


P5 *. 

*. 
SINGLE • 
BEUOEST 


. 



» G3 *-> 



♦•••»G1 *♦•**•*•*• 

* • 

* ADD OBE TO • 

* JIODOIE COPIED • 

* CODBTEH • 



CALLIB 



TES 



• ***• 
•007* 

• AT* 



BEBTBT 
[LOAD S 
HAPWD) 



**«H1 ♦*••♦**••»*• 

' fBITE ODT • 
UPDATED POLL 
SECTOB • 



A3 *. 

,* pud *. 

THE *. TES 
DIBBCTOBT .* 

EMTBT .• 



T 

***** 
•003* 
• CI* 



BOTE: SEE IBB STSTEH/3 DISK STSTSH5 
STSTBM COHTBOL PBOGBAH LOGIC 
HABOAL, ST21-05O2. 



♦IIDICATE BBD OP* 
• DIRRCTOBT * 



IflS 



.* J3 •*. 

.* has 

. TTPE • ALL 
*.]0,B) SET. 



••••• 

• 007* 

* 41* 



TES 



• 003* 

♦ B2* 
***** 



JH *. 
.* *AS *. 

► TTPE IB *. Tl 
OSJ LIS DIB .♦-• 
►. COBtlOB -• 
*. .* 

*. .* 
* BO 



•007* 
•AT* 



*****j5«*» •»•**«• 



•SET SEABCfl TTPE* 
->* TO it IB 10 B • 



B«AD 'PBOH> • 
DIBZCTOBT 
AGAIR * 



* Bl « 
» i 

• *•• 
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BEAD IOD0LS * 
>*COPIED CQDITEB * 

* • 



***• 


L01D1 t ( 4 «S/1/11 
MBALOS * 


A4 •- 

• 


— >• * 

* LOAD fBALOG * 

* • 



•006*Q6-F5 
* J4*06-J3 



«***«Bl ********** 

• • 

♦HIT R/B IOB TO* 

• RE lb TTOC * 



♦KBIT* 'TO' FT? 
• 10G SECTOB 



•••C1I 



READ 'TO 1 
TTOC 



» oa/i/ii 

•****c<i ********** 

•sniEXZ * 



* LOAD flUEIZ • 



m 



«****Ii2+*«****««« 

• • 

■0 • SET TOL LABEL • 

,« — >*I/0 ERROR BUT ♦ 



•UPDATE OBJ LIB 
* BXTEBDED BID 



***«*bi«********* 

• bote updated * 

• TTOC IifO TO * 
'BEkD/VIZTE roa • 

• BOP * 

• • 



•INIT READ/IIITE* 

• IOB TO EBITB * 

• TTOC • 



T I NOTE T 



EEETKT * * 

(HILT/ * * 
SISL0C1 * • 

•»*•••****•****« 



****P2********* 



BBT9BH 



TO: tBAIHT 



B1IUIEE 
UBtiKIItB 

PRASE 



E4 •. 

> i 

LIB = 

ILL 



L0AD3 

•***pq*******«* 

* i 

* BETOKI < 

* i 

*************** 

TOi 



0H/1/A1 

*«***£^**** ****** 

•SflACSL • 



• LOAD SlllCSL * 

• * 
•****•♦♦*******•* 



BAIBLIBB 

LISBARZAl 

PRASE 



***G1 *******•**•• 

* WRIT* *T0» * 
*TOC 

**** ****** ******* 



HI *. 



MOTE 1; SEE IBB STSTBH/3 

- SYSTRt 
PROGRAfl LOGIC NANOAL 



DISK 9TSTEHS STSTRH COKTROL 



• **« 

• * 

* A4 • 
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fHACST 



• ■ 
•SAVE HEOISTSSS « 

• ABD HETlFftN < 

• ADDRESS < 



C1 •, 

K * * 

STSTEfl 

oh «paoi' 
, trrSK 



IALTS 

*****C2*t******** 



NO • INDICATE 'N1' 
>* TH HALT j> A1I1 



. * QfU LI a •. 

♦ . = DUNK OJ( . 

•.'TO' PACK.* 



• SET (IP TO lOir* 

• DATA BETUSeH 

• DISK frACKS 



*****pia**«****** 



KOTF 1 
*••*•(; ]*********< 



•DIODSP IOS • 
•READ/ tfttlTP* 



t NOT? 1 
•••••Hi* *««**••*• 



WALTA 

*****f);j »***«***** 



T 

***** 
•00 2* 
♦ J3* 



• isnrcjiTE 'ka 1 

■>• IN HALT PAd?l 



V 

***** 
•00 2' 
• JT« 



1: sf.k i3ii .irsT^n/i 

DISK SYSTEMS TtKTK lAHA'JERBNT 
ISPUT/O'JTPtlT 50P«:ilVrSOh 



«**• 

* * 

* A<l • 



♦Drops? ios • * 

•READ/ HBITB* * 



V NOTE 1 



• ♦ * • 

• •DIODHT IOS • * 

• • VfdIT • • 

• * * * 

• a » * 



■->• SET HALT Phbti •-■ 



• •**• 

• 002* 

• J3* 

■ a 



*****oq ********** 

• • 

•S8T it? TO aiAH ♦ 

• COJIFIG'JBATIOK ♦ 

• RECORD • 



XOTF 1 
****»f!4********** 

■ • a a 

• •Dionsp ios • • 

• »RFfcf>/ M9ITE* • 



NOTE 1 
• **a*pi|*a ******** 



* *DI0D3T IOS * * 

• * BAIT • * 



■>« SBT HALT PAbfl ♦ • 



.: I 



•*♦♦« 

•002* 
• J3* 



♦SET rf*> TO NhTTP,* 

• CONFIG ^IMF-D ♦ 

• * 



**«**K 1***«****** 



•SBT 
• IPL 

• 


UP TO USITF^ 
SOOTStflUP • 

• 
a 






I 

• •** 

• « 





'1ALTS 

a * 

• INDICATE '31* • 

■-->* 12 HALT PAK1 • 

• • ? 

• • *»**« 
••**4**«*a*****a* *002" 

■ J.T 



V 1JT» 1 
*****jU*******++* 



• •DI0P5? ros • 

* *BBAD/ VuITE* 



v Nrrs i 

*****K4*a*******i 



"tiin-j'v? ins 



• •a** 

•m> 2 ♦ 

* A1* 
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.♦ WSTT5 

— >•. ox 



->* SET HALT PAH1 



•OOT* 
♦ KM* 
***** 



*««*«B1**«*««**** 

♦ SET DP TO BEAT) • 

♦ MOCLBUS ♦ 

♦ rKTTmiZATIOS * 

♦ PROGRAMUIP) * 



IOTE 1 
t***€1«*******«« 
* * * 

•DIODSP IOS • • 
• +8EAD/ UBITE* • 



• « 



* • 



HOTR 1 

*****Q1 *•*•**•*** 

• * * * 

♦ •DIODHT IOS • ♦ 

♦ • WAIT • • 

* * * * 



t 



DIS* SYSTBK'i DATA .1 AtC AfiR.tPlMI 
r*P'l f/OHTVOT SOPRrfVISOK 

L-j^.n; _im<?AL 



YOTE 2: ->Stf liM SYSTTVI 

1I5K SYST^rS .iYSVe.l COHThOL 

photrai loc:>: bahhal 

1*21-0502. 



El ♦. 

I * 

READ OK 



TALTH 

c****£2 *«*•**•*« 

* 
>• SET HALT PAiM 



»**• 

* < 

♦ .71 « 

» * 
• ••* 



♦SKT UP TO URITE* 1 

• HIP OBTO NRH • 

• DISK • 



* DOTE 1 
• •***{; -]***••***** 



♦ •UIODSP 105 • • 
« «READ/ HHI'E* • 



* WOTE 1 
*****tj-1****«****i 



•DTODST IOS 
♦ WAIT 



•>* SET HALT PAHS ♦ 1 



► IBMTBlf 
'HALT/SYSLOfi- 



ftt-:i5 * ♦ 
ni-c5*ooi« 
01-J2* cs* 
***** 



TO: < HA CUT 
JfAIXLTXP LIUHA.1IAN 



RBTII3K ' 

*•*•«••**•••«•* 

TO: CALLEB 



Chart GQ (Part 2 of 2). Copy System Mainline Phase 



7-72 



tHIOLB 



•**»«& 1 «»»*»****« 



•**• 

* * 

• * 

VBTBK $ Gfi/0 4/il 



• BfilTE UPDATED • 
•DIRECTOR T OiTO • 

• DISK • 
******** ********* 



• COPY < 

. READER TO B 
*. LIB . < 



CKPBH 



PEBN •- HO 

ENTRY .•--■ 

„* 



> * 

► B1 •-> 



**** 

PBRHBT 



PEBHM1EKT 



• ATTRIfltiTE IK 

• DiaecToar 



Gfi/01/AU 



BUILD PINO 
PARAS ETEB 



BR1 7 GH/01/A1 

•in ire d • 

*.. • 

• CHECK TQZ • 

•duplicate nine • 



HI • . 

-• •. 

' DtTP 

RAHE rODffD 



J1 •. 

• • •. 

• REPLACE ■. 

TTPE 
•.ATTRIBUTE.* 



.• BEPLACE *. YES 
->*. EKTBI .• . 



**** 

• • 

• E1 • 

• * 
• *•* 



J2 •.. 

' COPI •. BO 

8EADEB TO 8 .• 

LIB .« 
•. .• 

*. .* 
• TES 



•003* 
• 11* 

* • 







• OP DATE 


voluhe • 








• LABEL • 








• • 








• • 








***************** 








• *•• 










* * 










* D4 *-> 










* * 










**** 






,*, 




IODDP „*, 




3 *. 




Dft *. 




a. 




. * *. 




BOOH *. 


its 


.* COPY *. IRS 




ASOTHBB . 


• ----, 


*. BBADBB TO B .* 


---■^ 


ENTBT .• 


1 


*. UB . • 


T 


.» 


1 


•. .* 


***** 


*. .* 


* 


*. .* 


• D02* 


* BO 


***** 


» 10 


* D1* 


| 


• 003* 






* * 




• PI* 






* 


1 


* * 








***** 


* 








•003* 










* »1* 

• • 




♦ ca/o»/n 





• *•• 

• + 

* • 
*••* 



GH/03/P3 

•****j2 •••*•*•••• 
• SKAOLEJ • 



* HALT/SYSLOG • 



BEAD PIBST 
SECTOH OP 

■)iar _ " 

n 

• *** 

• « 

• p» •-> 

• t 
**** 

LFBBAH * G8/01/A1 
•****P4 **•***£•>• 

•fHAPUD * 

• * 

•LOCATE DELET8D • 

• EHTBl • 

• • 
****••••••*••*•*• 



EBTBT 
FOORO 


*. 


HO 






•— _. 


— --^ 




• 




T 


.* 






***** 


*. .* 






•002* 

• cl« 


• TES 












• * 



V 

• •**« 
•002* 

• CI* 



■••*• 

• 002* 

• B1* 



.* LABGB 
. ENOUGH POB 
•.THE EBTHt. 



CORPBD V 

• ••**,)$ ********** 

* • 

* SET PI WO PASS • 
— >* LIST TO • 

• CONTINUE * 



DLTEtff 

•a a**R1a *••••*•*■ 

* • 

• DELETE • 
•DOPLICATB BARE * 
•PBDH DIRECTORY « 



***** 
•002* 
* Al* 



**a* 

• • 

• BU • 

• * 
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**** 

AH 1 



♦ SET IIP TO PIND 
■>* I? 5IZSS ABE 

* EQUAL 



*001# 

• m* 
***** 



G8/<I/A1 



SIZES 
EQUAL 



♦001* 
01-Ct" fl*l ♦-> 

« • 
• *•* 

**t* 



V 
***** 

•001" 
♦ J5< 



•UETEBBIHE I Of 

• EIT, TRACKS 

* HEEDED 



*Q] ********* 



'BESET OBIGIHAL 
POINTEHS 



♦00 1* 
• DM •-> 



D1 



► BESET POINTER • 
►TO COKTBOL AREA* 

► ICAHEA) * 



TEAP 

ENTRIES 

PODHD 



DBLTP 

*«***E1 ********* 

* 

•DELETE AIL TEMP 

• DrBECTQBY 

• ESTHTES 



**** 

■ < 

■ i 

**** 



ca/u/Ai 



SET 



• UBITE UPDATED • 
•DlftGCTOBf BACK • 

* • 



*m**fT********* 



IMDICATS EHD OP 
DIRECTOBt 



• •*• 

• * 



♦SET OP TOB MBIT* 

■>*TEMP DISECTOBT • 

♦ EKTBt • 



HT5CT V G9SH/M 

*****G-\m*** ****** 

•saioLK 001A1* 

•__.--.---~ -_.-_* 

« WBITE UPDATED * 
« DTR BACK • 



HI ♦. 

.* *. 

LAST 
SECTOR OP 

TEMP 

*. -• 

♦. . * 

♦ YES 

I 



ADBOK 



****G$********* 

• * 

* RBTUBN « 
i * 

*************** 

TO: CALLEB 



• flOVE TO KBIT 
->♦ SECTOB AWD 

♦ BLANK TT OOT 



BEYOND *- HO 

ALLOCATED . • 

END . ♦ 
♦. . • 



►SET UP TO BEAD 
» YOLUBE LABEL 



•DETEtlBINE NEH *• 

■>♦ OF ACTTYE LIB * 

• SECTOKS * 



• SETU3S * 



TO: CALLEB 



**** 
* • 
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•SET DP TO READ • 
■>* VOLUME LABEL * 



•O01»01-D3 

• D2* 

• •••• 



7 GB/VA 
+ *«*«B -|*«*a •««*• 

• ros 



• HEAD IN VOLUHS 

• LABFL 



• **««Cl»«a*+*««*i* 

• * 

• DYNAMICALLY * 

• ALLOCATE DOSE • 

• BOOH • 



aaaapl *»*»*♦••*• 
• 

HOVE UPDATE • 
SYS. DIB. INTO * 

VOL. LABEL ♦ 



V CR/tt/HI 

•IOS 

•WRITE VOL LABEL 
• BACK 



•001* 
• D3 • -> 



• •*♦ 
HODYA 



GR/U/AO 



•FNDBLD * 

* • 

• • 

•BDILD PAHN LIST* 



BREND V GH/1/A1 

•*(lArND_ 

• CHECK FOB 
•DUPLICATE TBP1F 

• HAHE 



DOP •- MO 
FOUND .* -i 



' Dt < 



.• TRHF •• 


MO 


ENTRY 


• -->.-. 


• - . • 


1 


•« . • 




•- .• 


V 


» YES 


**♦• 






* * 






• AS • 






■ • 






***• 



GS/3/P3 



• . 

HALT/SYS LOG • 1 



* • 

» Btt • 



BNTSd 
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ABO 


AU •. 






. • *. 






.• TESP * 
•. ESTRY 


WO 








*. . * 




A 


*. .* 




.1.. 


♦. . • 




* YES 




**•■ 






• 


• a 






• A5 


• BU •-> 






• 


• • 






*»»* 


• *•* 








DLTEHP 






*..*. B L4*. ..**** 






• 






•DELETE OLD DUP 


• 




• ENTRY NAHE 


• 




• 


* 




* 


• 





•105 



G8/V*l 



•*»•»•♦•*#***«**♦ 



KTBHBB 



••••DU******«a> 

p 

' 8ETUBN 



TO; CALtEb 



****Fti* +•••••** 



SAVE HETORN 
ADDRESS 



••******••**••• 



•SET POIBTEH TO • 
• HALT PABH • 



V DOTE 1 



• * NEHTHY • • 

• "HALT/SYS LOG* • 

• • * • 

• • * ♦ 



RETURN 
TO: CALLER 



•INDICATE A60BT • 

>*OHLY OPTION IS • 

HALT PAB8 * 



GB/3/F3 

•**«*a^*******a** 

•HALT • 



L 



>• B* • 
• • 



NOTE Is SEE IBH SYSTErt/.l 

DISK SYSTEMS SYSTetl CONTHOL 
PftOGHAK LOGIC BANUAL 
5Y21-0502. 
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•*••+£ 1 •*••****•* 



SATE BETORfl 
ADDRESS 



<OTS 1 



* *"DIODSP 105 • • 

* "BEAD/ VBITE* ♦ 



•LOAD FIND DATA 
• IBTO PIMD PARfl 



•««**01i 



• ♦DIODfT IOS 

• • WAIT 



•SET DP TO BUILD* 
•A PABfl LIST 70S* 
• PlSD • 



OPE&ATrO* 
OK 



IOSBTN 

* i 

■ — >• RETUBN * 



J. 



GB/tt/A1 
•IOS • 

• BEAD IN DATA • 

• fOt PIHD PAkH • 



TO: CALLM 



' E2 • 



FBTBS 



HETUBS 
TO: CAILEH 



CR/3/P3 

•••**(; i »»•»**♦»•• 
•HALT * 

•..—_.. * 

• * 

• HALT/SIS LOG • 



->• E2 • 

• • 



BOTE 1: SEE 1 811 STSTEH/3 

DISK SlfSTEIlS DATA rtANAGEllEHT 
IJIPDT/ODTPOT SOPBHVISOE 



Chart GR (Part 4 of 4). Object Library Handler Phase 



7-76 



SH1L0G 

* EITEB * 



IOS 



81 



', BANE-ALL • •— 



.* BABE •. HO 
■>•- STABT WITH . •--• 
•- » .• 



• TES 



■>* flETDHH 

TO: CALLE8 



•***B»* •»•»«**** 



SATE BETUBB 
ADDHES5 



.• COPT • . TES 
*. FBO* BEADES .* 



•****C2 •***•»**• 



•SBT POIBTEB OF 
■>♦ 'TO' PACK 



•DIODSP IOS * 
•BBAD/BBITE * 



FBBOK i GS/01/10 

»••*•!) 1 ********** 

• IOS • 

•bead xi ptf'log* 

• SBCTOR OF • 

• »FBOH« PACK • 



• •DIODB? IOS • • 

• * BAIT ♦ * 

• • • • 

• * * • 



E1 



* SET BABE OF • 
■>*COPT BEAOEB OR *- 

* DISK TO O.IIB • 



, .* 
• TE3 



*****X3********+* 

• IOS • 

• • 

>»RE*D II PTF LOG* 
OB OP 'T0« • 

PICK • 



►•READ 
• SECT 



• •- 



BIS ♦. TES 

OPEBATIOI .• 

OK .• 



•••• 

• * 

• F3 •-> 



PISTIL 



rossTi 

* < 
■-->• BETDBB < 

• « 

TO: CALLER 



. ♦ ILL *. BO 


• , BABES -• 


♦ . DELETED .• 


*. .* 


*- .• 


* 


TBS 


DLTPIF 




• •**•[} i ********** 


• • 


• POIET XR1 TO • 


•IIFDT POIMT IB2« 


• TO OUTPUT • 


• • 


• **» 




• • 




• SI *-> 




• * 




• ••* 




CKEBD ••• 


H1 •. 


.* *. 


.* EBD OF *. TE3 
• . PT7«5 . •— - 


• . .* I 
•• .• 

•. .* T 


• BO •••• 


I * * 


• F3 * 


• • 


• ••• 


.*« 


J1 *. 


• • *. 


. • BASIC *. TES 


• . TTPE 


PTF .• 



•CHECK PTF B1HE5* 
►• TO DBtETB 



as/oi/»«i 



.: 1 



• WRITS ODT BBV • 
•PTF LOG SECTOB • 

• * 



HEHALT 

*****p 4* *****•*•* 

• * * » 

• • BENTBT » • 

• • (HALT/ • • ■ 

• • STSI.OG) • • 

• • • * 



* • 

• F3 • 



****G3*»******* 



BETUBB 
TO: C1LLEB 



•BOTE BASIC PTF,* 

>*ADTABCE OOTPOT • 

• POIBTEB • 



BOTE 1: SEE IBB 3rSTEft/3 DISK SISTEJIS 
ST5TEH COHTBOL PROGAAR LOGIC 
HAM01L, ST21-0502. 



ROTE 2: SEE IBN 3YSTEB/3 DISK STSTEBS 
DATA BAiAGEflEBT AID IB POT 
/OQTPDT S0PEB7ISOB LOGIC 
BABDAL, ST21-0512. 



*. .* 

* BO 



J 



• ADVABCE IBPBT • 

• POIBTEB • 



•**• 

m * 

* • 

**•* 
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IHACBB 

***** 1***«****a 

* ■ 

• 3NT2ti ♦ 



LBF.IC f BOTE 

*****B1****«+**** 

• •NEWTRY LOAD* • 

• + FISD • • 

• * BOUTINS • • 

• ♦ SJ1AFHD ♦ ♦ 

• • • • 



V NOTE 



HKTDDH 

• ****C1< 

• *NEHTBY LOAD* 

• * OBJECT • 

• • LrBBAHT • 

• * HANDLES • 



*****Dt********** 



• SET Uk» COMTBOL 

* AREA [CAREA) 



• *** 

* • 

* Bl • 

* ■ 
**** 

J 

- *. 

33 *.' 

4 

SLASH 

'. . * 

•- .• 

* NO 



* COBftECT THE * 
•SECTOR ADDRESS *<- 



********•***«««•• 



• B5 * 

* * 
**•• 



SO .* IS NEXT *- 
— •_ SECTDB ADDI .• 
•- VALID .* 



«••* 

• • 

• F 5 • 



V CT/0 3/K1 



SQHLT 

•••«*C3*******< 

•HALT 

# * 

• ISDICAT8 

♦ ISVALTO 

* DEUUEBC8 



5EQCX 



D3 



TEXT 
AND RLD 



* * 

* • 

* BESET POINTER • 



***« 

i i 

* ?1 ' 



OHLBB ¥ GH/D1/A1 

•SflAOLH • 



'OBJECT UBiiAHY 
' HANDLSB 



•003* 



•SET UP TO 4RAD • 
• FUOn SY5IS •<■ 



DETtCEl 



RDOK 

• • 

• POIST TO STA.1T • 

• OF STATFRENT • 



• Fl • 

• • 
*••• 





► no **•• 


1 • * 


• r,3 * 


* * 


j 






El *. 


* *. 


ESL *. YES 


STATEHEHT .* 


** 1 


*. .♦ 


•- .* i 


• so •*•• 




• • 




• C3 • 




• a 




• *•■ 




' 






T3 *. 


* *. 


ElTD *. KO 


STATI 


SB8HT .* 



F« *. 
SLASH 



FS 



ANT *. YES 
DATA 1EID .* . 



THIS UOUTIHK IS| 
SOT FL0KCH1HTED- 
HACPS IS LOCATED- 
AT ESD OF THE 
S1ACBB LIST! 



• m 
**•* 

• G3 *-> 

• • 
• **• 

CDOK 

♦****^j« 
♦•IHCP5 



1 ".. ..- I 

• **♦ • HO •*•• 

•0(12 
• -J 



• F5 • 

* * 
**•• 



)F THE J 
LISTING J 



GT/0 3/K1 
»t«*»H2 *••***** + <- 
•HALT 



■>* INDICATE BAD 
• READ 



• Fl • 

« • 

• ••• 



CQHPHESS 
STATEHEHT 



V fiT/03/KI 
• »**G ij*********r 
KALT __ 

INDICATE 

INVALID 

STATEMENT 



*•*■ 
0(12* 

A* 



• •••♦55 ********** 
•HALT_ _ • 

• INDICATE BO * 

• DATA BEAD • 



**•• 

* < 

• Fl < 



•HOVF COMPRESSED* 

• STATEMENT TO * 

• Burr™ • 



•*«»H5********* 
BETDIH 



KOTE SEE IBP1 SYSTKR/3 DISK SYSTEMS 



TO: IflAIKT 

KAIHL 
LIBRA 
PHASE 



RAIHLIWZ 
LlfilUaiAV 



BUFFE3 
FULL 



P?F 


*, 


YES 




EADEft 


. 


•----, 




„ • 


! 




. * 








♦ . .• 




« 




• HO 




• •** 


| 




■ 


• 


\ 




• Fl 


• 




» 


* 


• •** 




• ••< 




* « 








• Bl • 








• * 








• *** 









**** 

* • 

• Fl • 



I GT/m/EI 
•••••KJ********** 

*IOS * 

• • 

• UNITE OUT • 

• DinECTOnY • 

• sutales • 



***i 

* 



Chart GT (Part 1 of 3). Copy Reader to Object Libraiy (R. Entries) Phase 



7-78 



' A4 < 
► i 

*•*« 



// Cr.UQ *- SO 
STATEMENT .*--■ 



fftHLT 

♦♦•♦♦A2< 
♦HALT 



FINISH 



***** 



•**** B 1*4 
•CK5K0 



• CHECK FOH // • 
•CEND STATEMENT * 



CI 



BUFFER 




*. 


HO 


EHPTY 




. 


• •---i 




. * 


1 




• 




1 


*. . * 






V 


♦ Tl 


S 




***** 



• UPDATE i OF • 
•NEXT AVAIL LIB ♦ 

• SECTOB * 



• SET [JP FOB 8BA0* 



LDDDIH V CT/0 3/E1 

•IOS * 



•HEAD IN SECTOB + 
* Of DIRECTORY ♦ 



I**************** 



» INDICATE LAST • 
EHTBT AKD HOVE • 
' INTO BUFFER * 



rlOVEDfl V GT/03/E1 

*****)f 1*********4 
'IOS 



WRITE DIR EBTBY 
BACK 



IHDICATF •- 

INVALID ♦ 
STATEIIZMT * 



GT/03/E1 
*****C2 •»•••****• 
•SKACPb _ * 

•WEITE OUT LAST * 

• SECTOB OF • 

• DliECTOKY * 



**«**Q2 **••*•*••* 

• • 
•UPDATE ADDRESS ♦ 

• OP 8EKT AVAIL • 
•LlrJrlAJiT SECTDB • 



V 
***** 

♦ 00 1* 

♦ pi* 



.♦. IIPTEOP .*. , 
Jl *. J2 •. 
.* •- -* *. 






* ■ 


.* PEE1 *- NO .• FIRST 

•. ENTRY .* >•- IE.1P 

• . • •- 

*. , • *. .» 
*. _• *- •• 




YES • INDICATE NEXT • 
* >* ENTRY IS TEKP * 

■ • 
• ■ 
**•«***»•*****•*• 


» 


YES • NO 
I 






I 




**** 






V 

*•*• 




• * 






■ * 


V • AU * 

*****|T 1 *•**•***** * * 






♦ 64 • 


• • *♦*• •••* 






• *♦* 


• OPDATE 5YSTEH • » • 

• DI3ECTOHY • >• AU • 

« * • • 








• * • ••* 









SECTOR 
POLL 



**** B 0*****" 



ADVANCE TO NEXT 
SECTOB 



NO 



Ril < 



SCTfLD V GT/03/E1 

*****{;«• ********* 

• IOS • 

•"aEAD~ri(~FiJLL"* 

* SECTOR * 



****D0******»»» 



INDICATE END OF 
SECTOR 



CT/03/81 

■ ••*El)*«*****aar 

IOS 



BFITE SECTOB 
BACK 



INDICATE END OF 
DIRECTORY 



*****•*••*♦•*** 



r CT/03/E1 



• ros • 

•HHITE THE NEXT • 

• SBCTOE • 



* • 

• HI *-> 

* * 
**•* 

ADROIE 

•****HJi ***•**••*• 

* • 

• UPDATE * OP • 
•AVAIL TBdP DIH • 

• ENTHIES • 



OT/0.1/E1 



•BEAD IN VOLUME 
• LABEL 



•**••••*•****••• 



***** 
•00 3* 
• Bl" 

• * 
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• •••• 
■00 2* 

• J4* 



fililmtl' 



(TB.ITB LABEL 
BACK 



SATE HETOai 
ADDBES5 



LDHAKT 



EXTENDED 
BSD 



• * IEMTBT 

(LOAD 

DIALOG) 



■>* • {LOAD 



ViUT MOTE 1 

•«***C3 •*•«•••••* 
• • KITBT • • 

a • 
• * 



* • rrsTCH 

■>« * KJCIILIIE 



•ADTAKCE PAST //• 



VOTE 1 



• MSIIT&T * * 

• (LOAD BEAD * • 

• EXTBIDBD • •- 
BBD 

*••*••*•••*) 



**NABXB 



. 



— — — • 



BNTBS 



■-->• BEAD JCST * 

• EXTEflDED ENO • 

• « 
••••••••••a****** 



* SATE BETOHH 
■>• ADDBESS 



••••D3**«**»«*« 

t 4 

' EXIT ■ 

■ * 

»•*••*•*•••*•*• 



TO: SKAriT 

HkXILIVE 
LIBBABIAX 

PHASE 



04 *. 

% 

BLABE 



D5 
'CEBD 



*. .• I 

*. .* * 



*••• 
> * 



10 .* EBD OF 
l *. STATBHBWT 



•***E5********* 

< < 

* BETDBB < 



WOTE 2 
•••**F2***+****** 

• • • • 

• •MODS* [105* • 

• • BEAD/ * • 

• * WHITE) * * 

• * * * 



• *•• 




• • 




* w *-> 




• * 




*••• 




EH1LT T QT/03/K1 


*HA1T • 



TO: CAtLBB 



• IBDICATB • 
«IV7ALID // CBBD* 

* STATBHEBT * 
•*•*•#••*«******* 



T HOTB 2 
•«*»»G2 ********** 

* • « « 

* *DIODWT (IOS* * 

w 



••••• 
•001* 

• Pi* 



• • BOPTIBB) 



BOTE 1: SEE IBM SIS TEE/ J DISK SYSTEM 
SYSTEB COBTBOL PBQCBA* L06IC 
fli*(JAl, ST21-05O2. 



****H3*«******* 



0P8BJ 

01 


*. TES 


* 


ISTDHH 


• 
* 
• 


C .* 


• 


*. •• 
* MO 




TO: 


CALLSB 



BDBD T 

•••**J2********** 



• IBDICATE • 

•HABDVARE BBBOB * 



■OTB 2: SEE IBH 3TSMH/3 DISK SISTERS 
DATA BABAGEBEBT ABD IIPDT 

ffifcz: bshbik ukic 



••••K1********« 
> * 

* B1TEB * 



•SET POIBTEH TO 
>• BAIT PABH 



KEBTRT * • 

miU) ::■ 



***** 

*001* 

• PI* 
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SHkEIE 



>****Q1********* 



kDDRBSS AND 
fALXZB 



G0/OT/H3 
1 ••••••••*• 



•**»*C1 

•IOS ■ 

• READ III VQUJ8B * 

* LABEL * 



♦ EXTMOED BSD OP* 



07B1 



B1 



•^•••^••••••**«* 

*••« * • 

• • ♦ DEfBftRlNE HO« • 

* A4 * >*HABY TRACKS TO • 

♦ • ♦ MAKE AVAIL • 
♦ ••♦ * • 



< ., 

CKTBK .•. 

. * •. • * 
. • •-IO •SUBTRACT 8 FSOB* 

• . < B *• >• TRACK t • 

*. - • • • 
•• .• • * 


• TBS 

1--- — , 

CKO .•- 

.• •■ • • 

. • t •. HO •SDBTHACT 1 FBOfl* 
• . TBACKS - .* >* TBACK • * 



BOTE 1: SEE IBB STSTBB/3 
DISK SYSTEBS DATA 
IKPUT/OOTPOT S0FER 



BOTB 2: SEE IBB SY5TEH/3 DI5K 
■~ SYSTEB COBTHOL 
.QGZC BABttJ 



nABAGBHBBT 
VISOR 



p'raiM&i": 



S7STBB3 SI 



>I5I 
ITH( 
IAL 



.* AT B»0 ♦- TBS 
*. OF LIBBABT .* 



• SI) BIB ACT 24 

• 1>B0H t Of 

• SECTORS TOR 

• TEHP5 



• ••• 

* < 

• *•• 



IVCBEHBBf « OF 

AVAILABLE 

TBICBS 



rn *. 
• • *. 

> t OF *. HO 

TBACKS - .* 

>. •• 

*. -• 



•SUBTK1CT 1 FROM* 
->* • OF TBACKS • 

• • 



• *•♦ 

• • 

• A« * 



BRTBX V GU/01/B3 
•••••G4 •**••»•••• 



• WRITS VOLUIiE 

• LABEL BACK 



* • 

• R4 •-> 



••••HI***"*"* 
' EBTES < 



RETUBH • 

TO: CALLSB 



SAVE BETUBX 
ADDRESS 



••••J5« ••♦••••* 

• « 

>• BKTORB ' 



TO: CALLER 



NOTE 

• 

• DIODSP (IOS 

• READ/ 

• WRITE) 




->*. OPERATION 
•. OK 



TO: CALLBB 
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SHACtlO 

• ESTER * 



»•*♦ 




•002* 

* C1 •-> 




• • 




♦ ** + , 




READCD V NJTB 

a**.**Bl***«****** 


* • NRMT3K * • 

* * (BEAD IN * • 

* * FIRST • ♦ < 

* *ST\T?.HV.HT) * • 

* • a • 



• «** 

« * 

• i 

*••* 



KDCABD Y 80TE 

• • HBNTBY 

• * (fiEAD 

• *STAT£I1ENT) 



)H HeAOES 
CORRECT . 



SEtfCK 



CZ •. 
, * < 

FIT1IEK 

/♦ Uii /R 

SCAD 



E0F1UT GV/03/ 

♦****C3********* 
»HALT 



•****D2 
•MALT 



* HO 

I ."•■. 

L->* B1 • 
* • 

• ••a 
r,v/0^/F2 



• a 

• C3 • 

• * 



noooao 



■>♦ IJiOICATE sc 

* heade-.i 

• 3tatehfwt 



.: I 



' 11HE0IATE • 
' CANCEL « 

» 4 

•••a****a*a**«* 



► SMUT 
STAHT VITH 



r.v/oi/ 



INDICATE 

IKCOBiECT 

SEQUENCE 



*♦♦♦ 

* * 

■ • 

■ ♦** 

i 

*««♦ 

■ • 
>• B1 * 

* a 

♦ ♦•♦ 



hotf: see rnn systek/3 orsx systems 

SYSTKK COHTAOL PROGRAH LOGIC 
MANUAL, SY21-0M2. 



C5 *. 

.•"* y* OB "«. TBS 

■>*, /I BEAD .* ■ 

'■•• •'■* I 

♦. .* ? 

• no *•*■ 

Laaaa a a 
♦ ** C3* 

>• B1 •* • 
• * a*** 

• ••• 
G?/03/C5 

• •••♦D5 *•****•«• 
*CKE8D_ * 

■>*CHECK FOb'yALID* — - ■ 

• STATEHEHT • 1 

•002* 
• El* 

• a 



SEg • *, so 
CORHBCT .•"- 



TBXT *. HO 
STATBflBST .* 



6?/03/F2 

a**a*g5*aaa*aaaa* 
•HALT _ _• 

■>• ISDIC4TE *— -^ 

• IMC0B8ECT 

• SEQUEKCE I 



.: 1 

* « 

* B1* 

* • 
**•* 



B-TXPE 
STATEBEBT 



BACK 

*****(; ^«*a«*t**a« 
•CONVRflT HKAOES '* 
•STATEMENT FHOM • 

* EBCDIC TO ♦ 

* BIWABY * 



OYEtt V NOTE 
*a***.H1********** 

• • dENTSY * • 

• • (LOAD OBJ * * 

* * HH * • 

♦ * HANDLES) * * 

* * a • 



BROTH V gh/OVAI 

• •a a*j !•♦••• *•♦•• 
•fMAOLH * 
* a 

•oojpct LieaAay • 

• HANDLER * 



THIS ROUTINE IS| 
HOT FLOHCHAhTED. 
IT IS LOCATED AT- 
E«D 0» SHACao I 
LISTING 



r,V/Q3/F2 
*** + *j(2**+******* 
•HALT * 



• *«*t(3********« 

• 4 

■>*CO")THOL CAMCCL < 



♦ ••♦ 

• a 

• Gt * 

• • 

♦ •** 
C0MPH5 

***aa^[*******a** 

•irtAcao 



■* COMPRESS TBXT 
♦ STATEKENT 



*SO?E COMPRESSED* 

♦ STATEMEST « 
•(60-BlfTESI INTO* 

* BUFFER • 



• •*• 
■ * 

' G«* 



E-TXPE *. TES 
STATEWMT .•««. 



a 
i Bl* 



GV/0 3/F2 

*a***H ■>***• *•••** 
•HALT * 

a--- — -.--. .- --._*- a 
•INDICATE HBO BO *— 
• TYPE CARD * 



• *•• 

i si* 



a. 


*•** 


8HFPBR *. HO 




PULL .• 


->" BT 


.• 


a 




• **• 



**••« 
•002* 
• A 1* 



• *•• 

• a 

• B4 ♦ 
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*•*♦ 

• * 

• Aft ♦ 



[ 



* mCREBBBT 
>*SBCTOR COOJitES 



LPHD 
♦ XOS 



iaia : 



•WRITE DfBBCTORY* 
• ENTRT BACK ♦ 



• • 
'001* 
' J»* 
■ *«*• 



PAST 

***** B 1 ****«*«*** 



• BO»E THE DlTA • 

• raon 8DFPEB • 
•IITO BRITB IBB!* 



TENP 
EHTRT 



********* ***«**•« 



•♦*♦ 

* < 

* ?« " 

* i 
*••• 



;J/03^1: 



•BB1TB OBT DAT* • 
•IITO DIRECTORY • 
• LIB * 



•****C3********** 

• • 
•PUT HBXT UMl • 

• DIB EMTBT II • 

• FIRST ♦ 



PEH« 
BKTBr 



•*•**£•; •****•**•• 

• • 

• SUBTBACT 012 • 
•FBOB * OF PBBH • 

• DIR. BBTKXES • 



***** 

• 001* 

• B1* 



***** 
*O0 3* 
• H5* 



I»*«* 
• • 
l->* yi| i 

• 4 

*«*• 



. • ALL •. TBS 

•- SECTORS . • -. 

•.PI0CES5ED.* I 
*. .* 1 
•• .• ♦ 
♦ IfO •• + • 




• Bl 

* 
*•** 




1 


*****F1* 
* 

• DETEB8 
•■BIT SE< 

• »AI 


►•**••♦•• 
KE IF * 

:tob is • 
.ID • 



- 2 'tc- B 



***************** 



LEAST 
PIT FOOWD 



HATOK 

•«***E5****« 



* SUBTRACT I XI • 
->*DIR BHTHT FBOB • 

• t FOB PSBHS • 



*••• 

• • 

• V4 ♦-> 



**** 



F* 



SBC TOB 
FOIL 



**•***•**•*•••**• 



T GT/0 3/A3 
*****G I********** 

•IOS • 



, HO 

.* , 

.*" ***** 

.♦ *00 3* 

• TBS • A1* 



IRITI OOT 
5BCTOB 



♦SET OP TO READ 

• IK SBCTOB or 

• DIBBCTOBT 



HI •-> 



tl ? S»/0 3/*3 

•***«{] I ***•**•*** 

•TOS • 

*- * 

•BBAB SECTOR OF • 

• DIBBCTOBT • 

• BUTBIES • 



CT/03/A3 

***ftf ********** 



• IOS 



•RBAD Tl SBCTOB 
• OF DIRECTORY 



ihdibe 

♦••**Jt ********** 

• »0?E IB ♦ 
•DIBBCTOST EMTBT* 



•IBOICATB KID 07* 

• SBCTOB • 

• * 



U*Um 3 



.*' LEAST "*. BO *IBDICATE END OF* 
*. FIT FODID .* >* OIRBCTOSt • 



• **• 

• • 

• All * 

• * 
*•*• 



***• 

* • 

* A4 • 

* * 
**•* 



• WRITE SBCTOB 

* BACK 



***** 

•O0 3* 
• 11* 

• • 
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• SAVE usr 

• SfiCOTR 1 A*D 
■>»ADVANCE TO HEX? 

• SECTOR 



•002*02-F* 
***** I 

KRTVL 7 

•****B1********4 



Fdluhs label * 



♦ GY/0 3/A3 

*•*•*£ I********** 

•IOS • 



*RSAD IH VOLUME 
* LABEL 



i* ***D1 •******•*• 



* UPDATE VOLOtll 

• LABEL 



GT/0 3/A1 



* HRITE VQLOIIE 

* LABEL BACK 



DOTE 2 
»****P1**«******* 

* * HEBT8Y ♦ • 

• * PZTCH • ■ 
» * flAtBLTSE • * 

* • LIBRARIAN * • 

♦ * ♦ * 
***************** 



PBMAIN 



V 
EXIT 



• *•*•[} j •*•■•••••• 



SAVE BBTtlhN 
ADDRESS 



KUTE 1 

• ****C3 *•*-••••••• 

• • * * 

• •DIODSP 10^ • ♦ 

• *READ/ VFITE* * 

• * * • 

• * * * 
**•******••*••••• 

I 



V NOTB 1 
**• a*;)^******** *• 

• * * • 

• *DIODHt IOS * • 

• • HAIT * * 

• • uonriNE * * 

• * * • 



SEE IBM SYSTEft/3 

DISK SYSTEMS DATA MANAGEMENT 

INPUT/OUTPflT SUPERVISOR 

LOGIC flAKOAL 

SY21-0512. 



CKEND 
NOTE 2: SEE IBM STSTEH/3 

DISK SYSTEMS **** C 5*******n»* 

SYSTEM COBTBOL • < 

PROG B Aft • BITTER « 

LOGIC MANUAL • * 

SY21-05G2. **a************ 



• ****q5 ****•••••*. 



SAVE BETOSN 

ADDBBSS 



■>• BBTUKN 



***** 25 **•••***•* 

• * 

♦ADVANCE PAST //* 



e**«p^*****a*«* 

i 

> ENTEd 

> 
*************** 



* 



•»***F3««******** 

* • 

♦ SAVE HJETUftrl * 
>* ADDHESS • 

• • 

* * 
* a* *•••***• «•••*• 



NOTE 2 
•****G3******a*** 

* * * * 

♦ ♦ NEMTHT * • 

• *HALT/STSLOG* * 

« * • ■ 

• * * + 



TO: CALLEB 



{--*. 'CEBD 

*. .* 

♦ . .* 



*♦♦* 

• * 

**** 



BUSK 

, *' 
*. .* 

* TE5 



TO: tIAIST 

BAINLIN* LIBHAflllN PHASE 



****Gt*****a*«* 
> * 

* BBTUBU < 



TO: CALLEB 



05 



♦ ehd or 

STATSBEKT 



*••• 

* • 

• H5 •-> 



**** 
CBHALT 



GV/0J/F2 



RETRY 
SEyiTEST 



->* *ETHl«i < 

* < 

a************** 

TO: CALLEB 



•INVALID // CEID* 
* STiTEMOT • 



***** 
•002* 
* El* 

• * 



H1HEDIATE 
CANCEL 
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■ ••a 

• * 

♦ a« * 



tHACSL 



EHTSH < 



• ros 



• SEAD DIRECTOBY • 



*OTE 1: SEE IB1 STSTEH/ 1 

DTSK 5T5TEHS SYSTEH COXTHOL 



. • "pao«" *. TES 




PROfiHAPI LOGIC HARUAL 




*. souhce ira . * . 




SY21-0502. 




•. EXTST . * I 








*. .* 








•. .* $ 








* RO *••• 








I * * 








• D1 * 








• * 








J 








CI •, 








,* *. 








.* "TO" *. TBS 








*. 50UBCS LIB .* . 








•. EXTST .* 1 








*. ,• I 








*. .• \ 








* NO •••* 








*•♦* | • • 








* • * E1 * 








• Dl *-> * • 








* • 1 ***• 








**•* i 








CKALL -*. 






GU/M/AM 


01 *. 


♦ •*♦< 


aaaaaptaaaaaaaaaa 


.* •. 

.* ABY •. HO 
•. COPTBD .• 


• 


• 
INDICATE NO ♦ 


•HALT • 


>* 




• 


* HALT/SYSLOr, • 


*- .* 
* YES 
















• •*• 








♦ ••♦ 




• * 








OJ-ja* H2 *-> 




• HI *-> 










• * 








• • 




• •+* 








• ••• 






1 NUTE 1 






LDNlflT V MOTF 1 


• •HESTRY LOAP* • 


* * * • 


• *THE SflAFHO • • 






• ♦ NF*Ti»Y * * 


* * FIHD * • 






• * FETCH • • 


* * ROUTINE * * 






* * (5BAINT1 * * 








• « ♦ • 



?NDBa» V GH/1/A1 

•SHAFND * 



DUP 
FQfUID 



V 

*002« 
• F2* 



• POT EHTRY 111 

* CONTROL ALEA 



,* SEW *. HO *PUT HAHE TQV90 • 

HAJ1E GI7ES .* >* IK PAKH LIST • 

*. .• * * 



ga/Vai 



>*SRT TYPE TO 'S** 



HAIHLIHE 
LIBRARIAN 



* LOAD HBtf HAHE 

• IK mi PAM 



D?CK ? GV/VA1 



* PUT TYPE IN * 

• FIHD PARI LIST * 



• ** + 
•002* 

• S3 •-> 

• * 

• *•• 
CM AH 

HI 



*»aaGj*****#**+ 

i i 

FXIT < 



toi mrKT 

J1ATNLTNE 
LIBRARIAN 
PSAS" 



• IOS 



MriALl 

**aaaH2*******««* 



.• MANE - ♦ . TES « SK* CODE AMD • 

*. ALL .* >• LKH1-H « •■ 

». ,• A • 



1 « 



O3-GS«003« 
* KU« 
••••• 



.* HAHE •. 811 


». .ALL *• 


♦ . , * 


*. •• 


•. . * 


* TBS 


• •*• 




02-Fl*fK>3* 




03-fllU IS *-> 




• * 




*♦•• 




PAR7AL 




•*««*K1* 


»««••*»•* 



•SET OP FOk FiJLL* 
>• HAHE * > 



* SET UP FOB 

* PARTIAL RA15 



•HEAD IH SECTOa * 
• OF DT»«!CTOmr « 



•tHAFSD * 



DUPLICATE * 
EMTajES • 



BIlPNr) 




• 


• 


• 


• 


">*3KT 


fjp ma 1F\D* 


• 


• 


• 


* 




1 
( 
1 
V 




a*** 




• • 




• A4 • 




• • 




* + •• 



!JUP *. HO 

F^OHP .• -* 

.♦ V 

.* ♦•*•* 

•. .• *002« 

* Y25 • H«« 



•. HEfLACH •- YP.S 



E*T*tY .« 
. • 
• 
•. .* 
• HI) 

| 


V 

• Ot)2» 

* ?tn* 

• a 
a 


• •••* 

• M* 

a * 
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r 



PFKfl 
BKT8Y 



» * 
•001* 
• 1U* 
***** 



*. RBPLACE- 
*. ABLE 



YES V ♦ IHMCATE • 

* >*0!IPLTCJITF NAfIR •- 



■i***V*l*» l t 

•HALT < 


I HE 


• lALT/SY.TL^ 


' 1 




I 



•DELATE i)HP .U.1F» 
>• ENTRY IN • 



I GH/U/Al 



.* OHE •, HO 


• . ENTRY . * — — 


*. .* I 


*. .♦ 


*. .♦ v 


* YES **•* 


I * * 


* El • 


* * 


1 


. *. 


D1 *. 


.* *. 


.* OHE *. YES 


*. SA*B .• 


*. . * 


*. .* 


*. .* 


" WO 


• + ** 




• * 




• El *-> 




• * 




***• 





*****B1********* 



* INDICATE HALT 

• MITR 8ET8Y 



*«**p^*»***+«*« 
HALT 



HALT/ STSLOG 



***** 

•001* 

• KT* 

* * 



»***«02********* 
* 

♦ INDICATE 
>*OBPLICATE EHTHY 

• A80HT-OHLY 



• 001» 

* C«* 

• « 



\ 



.* Llama* 

ALL 



-* 

• yes 



-,'J/0q/A1 
*****[13*****'****« 
•HALT * 



• HALT/SYSLOH * 



I 

< RETtlfiM * 



'J: SflAI^T 

1AIKLHE 

LiafcAKTAH 

PHASE 



• *•■ 

H2 



* HB.TTU S^CTlih 

♦ 'lACt 



TNT 




v rjv/u/M 


•IOS 


* 


•EEAD 

• 


i a vol'jjie ♦ 


1 

1 
V 


• 

* 
• 


• 

UPDATE VOLURS ♦ 

LAJSL • 

• 
* 



V nV/U/Al 
'IOS • 



• **♦ 

♦ • 

• * 

• **• 
D 



,• AKY ♦. VPS 

SO!JRC? .* ■ 

*. COPTEO .♦ V 

• „ .* ••♦♦• 

*. .* »00 1« 

• NO * 31* 

I • • 



**♦•♦ 
*301* 
• «n* 



IHMCA7E fO • 
SO'JPCE COPIED • 



V flH/U/fti 



■ tUl.T/SYSI.CX 



*0QT 
» El* 

* * 
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• •»* 

•001* 

• JH *-> 



• E.yjrireM ♦. :<o 




• . . * 

*, . » 

*. . ♦ 

• YES 


V 

♦ ♦♦♦ 
•001 

• F? 



• srr 'in to copy • 

•DTPECTOHY RSTBY* 



*♦♦♦♦ 
•00 "1* 
• AT 
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LOOP GVQ/AI 

*##**A1 *•*«*'#•'•*» 

♦ TOS • 

• ..__-.« 

r - >• HSITE ALL OP * 
I *0T.RECT03Y ONTO • 
I ♦ HEM DISK PACK * 



■ 002* 

■ KU* 



HOTPFH V 

*«**#BT******«**a 
•SET UP TO HEAT) * 

♦ SECTOR 0» • 

♦ DXBSCTOB* ♦ 

♦ ESTBIBS « 



»T05 • 



PBBR.1 * GH/VA1 

«.. * 

•PTKO SPACE POri • 

• pis eurm • 



NOTE 1: SEE I3H SYST«!H/T 

disk ststpis srsTsn control 

PBOGdJll LOr>TC flANUAL 
SY21-0S02. 



• •**• 
•002* 

• * 



SPACE 
FQUMD 



♦SST UP TO WRITE* 
■>*PIfiPCTOaT ENTHY*- 



•»♦♦♦+*♦*•♦**•*•• 





V TJ/»/Al 


•TO* 


* 


>♦ 

•auITS 

* 


• 
DIRECTORY* 

« 



ANT 

flOBl! 
SKCTQtfS 



HENTRt 
(HALT/ 
SYS LOO) 



• IHDICATE SO • 
■>♦ R001 ?0^ • 

* AUGTREB FM'liY • 



•102* 
• J«* 



• AU * 

» • 

• *** 

? GW/0/A1 
♦I OS * 

» , 4 

* WSTTE LAST • 

* SECTOR BACK • 

• *** J 

* * 

* B1 •-> 

* * I 
» ••• ] 

1PBM V 

* * 

* SFT UP TO ♦ 

* UPDATE JOLUtlw • 

* LABgL • 



V GV/ft/Al 
««***C<i********** 
*IOS • 

«.--.. • 

*KEAD T* VULUSE ♦ 
• LA9EL • 



***** DK ••••**•••* 



• 3PDATB VOLUHZ * 

* LABRL • 



*IOS 



>*•£*<•* 



• ttFITB DPDATBD • 
«¥QL- 1ABEL BACK* 

• * 
*♦***♦******«•,*•,♦ 



*****pl| *+***«** + < 



• INDICATE * 

* CONTINUE FISD * 



a**************** 



7 G a/ It/All 



« UPDATE • 

♦DIRECTORY CflAIK* 
• POtNTER ♦ 



* nn/n/Ai 

*****if1***««** + *« 
•IOS • 

•VBT7E DTtfECTOilY* 
• SECTQH * 



GW/ft/AI 



•IKDICA+E EKD OP* 
* PIHECTORY * 



' AH ' 
■ i 

• ••* 



• TtilST HfcSSAKE • 



* • NEN"5Y * • 

* * (FETCH « « 

* • SUA I NT) » * 



. ¥ ^VVAI 

• ****.j^***«****** 

• matvt • 






HAIULTVE 

MnilAaTAS 

PHA5S 



.* LIBRARY *. NO 
- ALL .«--- 



,* 
YES 



NAJ1E = 


*. 


IE5 


ALL 


♦ " 


* , 

1 


.* 




1 


♦. .* 




+ 


♦ HO 

1 




♦ **•• 
•001* 

* H2* 

* * 



H4 *. 



NAflE = *. YRS 




* 


lAflE * ♦. KES 


.ALL .* 


*. 




• ALL .♦ — —. 


• * 1 




*. 


•* 1 


.♦ 1 






J 


•. .♦ V 






*. .* 1 


• ljy ***** 






* »0 *•**• 


1 *O01* 






1 *QQ1* 
1 ♦ Kl* 


* HI* 






* * 






</ ♦ ♦ 


1 






***** • 
•001* 


> *. 






* el* 


J4 ♦. 






* • 


*. 






• 


*. YBS 








TVPB P . • 


- -. 






, ♦ 


V 






.* • *•*♦ 






*. .* +0OT* 






« WO • 


8J* 







• SET TYPE TO 1* * 



***** 
•001* 
* Ml* 
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save setubm 
apd&v.ss 



MOTR 1 



•DlODSP IOS * 

■read/ «EiTB« 



KOTR 1 



*DIOOBT IOS • * 
• BAIT • • 



SC1TK 1; 5PS I8« SYSTEV3 

DISK SYSTEMS DAT* (IAN AfiEfl-itP 
INPUT/OUTPUT SUPERVISOR 
LDR1C MAH'IM. 

sim-asii. 



:T POTSTR3 TO 
HUT PA hi 



HPKTKY 

HALT/ 

STSLOfl 



•HALT • 

• • 

* *- 

♦ fULT/SISLOG ♦ 



RET'ISH 



TO: CALLER 



V 

RET'JRH 



TO: CALLBH 



SES ICi SYSTEM/' 

1ISK SYSTEMS SYSTEH CONTROL 

PhO'-.BAI LO^IC HAN0AL 

SY21-0SO?. 
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**** 

• » 



SHAPPa 



* 


• ENTglt 


» 


»*•* 




•002« 




• 01 •-> 




* « 




***• 


• 


LPOOOI .*. 


81 •. 


-• •. 


. • LIBUBT •. 


•- - J 


ILL 



LPBHTO 



BOTE 



At 

BEBTRY 
LOAD 
AODP) 



• * [LOAD 

• • IK 



• * 

* * 



LPBBHft V HA/OVA - 

*****£i| •*•*•••**• 
♦JflAODP • 

* * 

• PIIHT OBJECT • 

• DIHECTORY • 



BABE - 

Dia 



.* SOURCE •. YES 

— >♦. LIBRARY .• 

*. EXIST .• 



•CfIA 



* 
HCB TYPE TO • 



••♦• 




02-D1 *003* 
02-A2 • 12 •-> 






02-K4 • * 




*••• 




LPBBR8 ^ NOTE 1 



r!L! 

•I** 



BEBTBY 
MTCH 
RAIET) 



♦002* 
■>• B2 • 



* CH * 

> 4 

• ••• 



9 ROTE 1 

• * » **D 1 * *••***••* 

• • • • 

• * 



SBMTBY * • 

JLOAD * * 

• • SKASTP) • • 



» ♦ 



• * 



LPBSHO * HB/01/A1 
•***«E1********»* 
*JBASYP__ __• 

• PHINT SYSTEJI • 

* DIKECTOJtr • 



. * OBJECT 
'. DIBECTOBY 
*. EXIST , 



• ••♦• 
•002* 

• B1* 

• • 



**** 

• en* 



•••• 

*P3********** 



GA/0 

•misr 



1/A1 

• •* 



BAIBLIME 
LlBRABXAK 



• •••• 
•002* 

* • 



HB/0 3, 



•SHASTP 



.* SOOHCK •- YES 


* 


* 








* 


DIRECTORY * 


*. .• 


• 




• MO 




1 


• ••* | 






* * 






• SI *->| 




J 


*•*• V 






LPOBJD .*. 


LPAMYD 


. •. 


Gl •. 




C2 *. 


. • •. 




♦ ABY ♦. 


.» OBJECT ♦. RO 




SOtPHCE •. TE5 


*. LIBRAflY .* 


>•• 


SOURCE .• . 


• , . * 


• 


LIB .* 1 


•. • * 




•. .• 


♦. .* 




♦ . •• 9 


• TBS 




• HO •♦** 


»•*• 






| • 


• • 






• CU 


* FM *-> 






k • 


• * 






***** ***• 


*••• 






•002* 


LPOBJP 


NOTE 1 




* Bl* 


•• * **h 1 * ****** *•* 




• * 


• * * * 




• 


• • REWTBY * * 






• • (LOAD * • 

• • *«ASHT> * • 










• • * • 







****2I|*«******* 

i » 

EXIT « 



to± SHAin 

BlISLrUE L1BBABIAB PHASE 



• *** 
i • 

' an * 



LPFHQ3 



* LIS8A8Y •. YES 
» SYS .* 



*. .* 

* WO 



ROTE 1 
•****GS* ********* 

* • . * ♦ 

* • HMT8T * * 
>• * (LOAD * ♦ 

• ♦ SlfASYP) ♦ • 

• * * * 



***** 

• 002* 

• cl* 

* • 



LPBBR5 f RB/01/11 

*****U5********** 



• PBIRT SISTER • 

• DIRECTORY ♦ 

• * 



• *** 
L->* CQ * 



*****J1***4 

•*fl*SRT 



SORT OBJECT 
DIBECTOBY 



BOTE 1: SEE IBM STSTRfl/3 

DISK SYSTEBS SISTER CONTdOL 



CQ 
* • 

• •** 
LPOBJX .*. 

J5 •. 
* *. .* *. 

OBJ *. YES .* OBJ ♦. BO 

HBHABY .• >*. DIRECTOKY 

BEQUEST .* *. EXIST 



J1 



EXIST .* I 
*. .* 

*. -• ? 

• yes •••*• 

L***» *002* 

* ** B1» 

>* ci * * * 



K1 *. 








-* *. 








♦ A BY I/O 

EiBOB 


*. 


YES 








— — « 


•• 


• 




? 


•» , • 






• •••* 


*, .* 






•002* 


* HO 

1 






• C1* 

• * 


.J.. 








• • 








* A4 ♦ 








* * 








• ••• 









f— 

***** 
•002* 
• B1* 
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* OBJSCT 

DI6ECTOHY 
•- EXIST . 



TYPE 

a 



* YES 

| «*•* 

>■->• HI < 



l 
***** 
•002* 
• Al* 
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kk * 



A1 •. 

.• *. 
.• SOURCE 
->*. DiaECTOSY 
*. EXIST . 



•001* 
• Ktt* 
***** 



LPNODR 

•****B1« •**•*•*•* 



• INDICATE KO * 
■>*DIRECTOBY POUSD* 



OC/03/HQ 



•SOUdCE 



soar souses 

DIBECTOftY 



V 
***** 

*ooi* 
• en* 



•DIOD5P IOS ♦ 
•BEAD/ WRITE* 



i NOTE 2 



» * • * 

♦ *aroonT los • • 

* • uait • • 



* * 01-C2 

• OD1* 01-K3 

* D2* 01-J5 

***** 



NOTE 1 

■***ci***«***«*« 

SENTRY 



r 



• * (LOAD THE 
>• •HALT/SIS!. 

• • ROUTINE) 



LT/STSLOG* •< — 



**** 

i t 

* CI < 

* t 
**** 



*****C5« 



* INDICATE BAD 
■>• BEAD 



* * 
•001* 
• JC1* 

***** 



Bfl STSTE11/3 

YSTEH COHTROL 



NOTE li SEE 

DISK STSTEHS S 

PHOGHAI1 LOGIC (11 HUM 

ST21-0502. 
NOTE 2: SEE IBB SYSTEll/3 

DISK STSTEHS DAT! flANAGEtlSNT 

III PUT/OUT PUT SUPEfiVISOB 

LOGIC H1HUAL 

ST21-0512. 



NOTE 1 
mm*on* ********* 
' • NENTitY * • 
' •{LOAD PISD 



• ci ' 

• < 
**** 



. • 


V 

***** 


•• .* 
• YES 
1 


• 001* 

* C4* 

• * 


( 


* 


• ••*• 

•ooi* 

• B1* 





tiuniD) 



• * 



LPM4A V GH/0 1/A1 

♦SHAFSD • 



FIND EST fir 



***** 

•001* 

• HI* 

• • 



FIK< 

*. 



OK 
.*" 

YES 



V 

• •••4 

•ao3< 

• AT« 



*••• 
*0OJ* 

• 82 •-> 

• • 
**•• 

•••••^^ ********** 

• • 
•SET UP TO READ • 

IE • 



PULL MA A] 



LPPH12 

*****j<l< 



•SET OP TO FIND 
* ENTRY 



LPPI11D 



>*. 

A 



• * 
•DD3* 

• El* 

• *••* 
D1-C3 
01-D3 



G2 



HI ME ■ 
.ILL 



**m**Gj*******i 



* SET OP FOR 
•>* P1RTIAL BEAD 



•INDICATE ENTRY 
• FOUND 



>*»*H2*******< 

SET LENGTH 01 
NAflE TO ■ 6 



♦LOAD IS) C0R1 

• POSCtt ROUTINE •- 



■LOAD EITHES 
■-.MASPT - SOURCE 
. ftlAQPT - OBJECT 



PUNCH ENTBY 



••••*K1********»* 

• • 
•DETERMINE WHICH* 

• DIRECTORY TO * 

• SEAHCH * 



• •*« 
> AU 



•••••Kj*********« 
• * 

• * SET UP TO • 
*< * CONTINUE FIND *<■ 



PUNCH 
ONLY 1 



7 
•001- 

• en- 



*«•• 

* *« * 

* < 
**** 
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r ->*. = ALL 

r •■ ■ * 

*■ ■ • 
I •• ■• 

* * YES 
* * 1 


no .* a 

* >*. EBT 

A *, PO 

• . 


ST *. 




;»o .* ' 

,* 

N*NO 


V 
***** 
•001* 

• en* 

* * 


:°^ 2 : 

***** J 








• 


Bf *"•- 
.* *. 
,* TYPE = *. 
*. H 

*. .* 
•. .* 


YES 

* J 


*****32 ********** 

* • 

* INDICATE HO * 






* 
* 


♦ »*•♦ 


♦ . .* 

* SO 








• 002* 
» HI* 



LPOUBB 

•****C2 ********* 



•CHANGE TTPE TO 
->♦ P 



* YES 



• ••* 

* 

' E1 ♦ 

* 

• *** 



D1 

'type 



lpphor 

?*«**D2**> **•*•* 



* ?ES 


• ••• 




* • 




• B1 *-> 




• * 




**•• 




LPPlJOP 




•■•••El* 





•INDICATE TYPE =• 
• P ♦ 



•DO 2* 

'A* 



BOTE 1: SEE IBB SYSTBB/3 

DISK STSTEBS SISTEH CDHTBOL 
PROGRAM LOGIC MABtJAL 
SY21-0502. 



50DBCE 

****A4 ********* 

* « 

* E8TBR • 

* * 
*************** 



• SAVE RETUBK • 

• ADDRSSS * 



HEUTHlf LOAD 
SH4SRT 



>**4*U* 



•SMASBT_ * 

• * 

*SORT DIBECTOBT * 



LPBMTS V MOTE 1 

** ***£{|* *«•**•■•« 

• • * * 

• •BBITfiT LOAD* • 

• ♦ iHASDP * * 

• * * * 

• * • * 



LPBBM1 * GZ/01/A1 

***** fn**m* **•••« 

*JHASDP ♦ 

* PFIMT SODBCB * 

* DIBECTOBT * 

* • 
***************** 



• •••Gil********* 

• * 

• BETQBR • 

• • 
**•**••••*••••• 

TO: CALLEB 
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SnitSBT 

* t 

• EHTEB < 



GET SPACE FOfi 

rfORK ARE* 



****•«*•*******«* 



GETPTB 

* • 

* INITIALIZE TD * 
•SOfcT SOdflCE 08 • 

* OBJECT ■ 



• D2 *-> 

• » 

BEAD 

*****D2«* •••***•* 

• RE1D ft SECTOS * 

• OF DlftECTOfil * 

• • 

• * 



* E2 ♦-> 
**** 

E2" 



SOR1 



KJLHE *. TES 
BLINK .« 



• *** 

• * 

* H2 * 



**««*P2 ••••**•••* 



HOJE B1THY TO 
ODTPIIT 




* * 

• H2 *-> 



INBEC 



flOBE 
■. BMTBIES III 
♦. INPUT 7 



E0F1 



J2 *. 
► *. 

ekd or *. no 

IHPUT .* — 



• * 

• D2 • 

• * 



GV02/S2 SBTOIIT 

***«*K2* ********* 



■>• RET0RII * 



TO: CALiBfl 
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12»***« 
ESTER 



• B2 *-> 



MQVEEB V 

• COS POT E DISK • 

• PTB OF FIH5T • 

• BLOCK IJ» 5TBING* 
•A AND STHIHG B * 

• * 



RETARD 



* TBS 



TO: C1LLE8 



C2 •. 

.* IS *. 
,• STRING •- 
ODT OH .* 

*. EXTENT .* 



• DOUBLE STEMS * 

• LENGTH TO GET • 

• INTERVAL TO * 



i 

> E2 



*-> 



SETOFF 

*«*«*g2 ********* 

* BEAD PIBST 

* BLOCK OP -1- 
•STRING I1ITO -A- 

* BOFPEB 



••••*P2 ********** 



•PUT -*- STBING * 
"SK -' 

?Ai 
FIRST EHTfct 



PTR IK 
•AVAILABLE TABLE* 



••*»*G2 ********* 

* BEAD FUST 

* BLOCK OF -B- 
•STBIMG IBTO -B- 

* BUFFER 



**«##}f2 ********** 

•put -b- stung • 

• Bisk pts i»to * 

• available table* 

* sbcono estbt ■ 

* * 



•••••j2v* *••*••■• 
•SET BOTH BOFFEB* 

* POIfTBBS TO * 
•FlftST BBCOBD II* 

• BUFFEES • 



* BU * 

• **• 



> B4 * 
i < 

• ••♦ 



A*B .* CORBENT *. A<B 
*. A:B KBCOBOS .* 



•••••C4* •»*##*#♦• 

• SET OK BSUI * 
•HOVB -B- BEC08D* 

• Hi HE TO LOU • 

• FIELD * 



*♦•♦ 

• * 
■>• G4 • 

• * 



POTAB V 

•••••B4********* 

• SET ON BSHI 



* SET Ol A SHI • 
•HOVE -A- BECOBD* 

* BABE TO LOU • 

* FIELD • 



SETF 



» • 
♦ G4 •-> 

Ga" 



• PAD 1HD HBITE * 

• LAST BLOCK IN •<- 

• OUTPUT STBIKG • 



IBS .* DOES *. 

*. LOW RATE 

*.DUD(II SEC* 



•ADD IJITEBVAL TO* 
•FIND NEXT PAIB • 

• OP INPUT • 

• STRINGS * 



IS XSSI 

ON 



03-J1 

• ♦♦♦ 
•003* 

* J5 •-> 



• ♦♦♦ 
CHKB 



V 

• *»*• 
•00?* 

• 11* 



.♦ IS B •- 
* STRING *. NO 
OOT5IDE OF .*-" 
>, EXTENT .* 
• . .• 

*. •• 

• TES * 

• ••* • 



L 



>* B2 « 

• ♦*• 



■ »»■ 

E2 * 



.* IS BSVI 

OK 



♦ ♦•• 

» • 

* BU • 



to: 
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OUTPUT 



• *•*< 
•002' 

• J4< 



•PICK UP PTBS TO* 

» -A- RECORD TO • 

■>* GIVE ?0 0/P • 

* ROUTINE • 

* • 
***************** 



• 002* 
■ HI* 
**♦*• 



COOOT * GY/Q3/A3 

•••••g-| #•#****••* 

•SHA5KT • 



• TO 0/P BOPPBP ■ 



• STEP PTR TO 
♦MBIT RECORD IN 

* -A- BOFFER 



• 




*, 




• EHTEb 


• 




* 


• 




*♦♦♦ 






* * 








• B3 *-> 








• * 








• •*• 1 








.*. 






33 •. 






.* IS ♦. 






. • OOTPffT • 
*. BUFFER 


} 








•. PULL .* 




1 


•• . ♦ 




1 


». .♦ 




V 


* res 




• ♦** 








* 








■ 51 








• 








• *** 








t+*+«C3 ********** 




• POT AVAILABLE 


• 




• EHT8Y 2 DTSff 


• 




• POXSTEft IHTO 


• 




* 0/P CUAIN 


* 
• 





•PICK DP PTBS TO* 

♦ -H- BBCOBD TO • 
■>*GIVE TO OBTPUT ♦ 

• ROUTIKE * 



V Cr/03/«3 

*****$$ *********** 
•SBASBT • 

* HOVE BECOBD * 
•7R011 -B- B0FF2B* 
» TO 0/P 

********* 



.52 



BFPBB 



*****€*>*** ••*•••• 

• * 

• STEP PTB TO * 
•NEXT BECOBD IN • 

• -B- BUFFEB * 



Dl *. 

.* +. 

IS THE *. Y 
■A- BUFFER .*-- 

BBPTT -« 



.*. 

D2 *. 
.* IS *. 

.* THERB A * 

-—>♦. CHAIN PTB TO 

*. AROTHEB .* 

•.BLOCK.* 

•• . • 

* t 



*+*E2***********< 

BEAD TUB 
" CRAIKBD BLOCK * 
IBTO THE -A- 
BUFFBH • 



* PUT THE CHAIH 

* PTB JOST USED 
♦IHTO AVAILABLE 

* TABLE OPEN 

* ENTRY 



••**«g2 ***••****• 

* * 

* RESET -A- ♦ 

* BUFFER PTB TO ♦ 

* FIBST BECOBD • 



CRKLOU 


. ». 




Jl *. 






KES .* 


TS NEB 


r ~** 


REC EQ TO 
LOU 


* 




*. . • 


V 


*. .* 


• *•* 


* NO 


* 


1 


61 • 


I 


* 


V 


*♦♦♦ 


*♦•** 



• •*D 3* •*•••••***• 
RRTTE 0/P 
• BOrPEB TO ♦ 
DISK LOCATIOH 
• IN AVAILABLE * 
ENTRY 1 
***************** 



***«»g3**« **«»«•« 
•SLIDE AVAILABLE* 
•TABLE TO UPDATE* 
•STATUS OF OPEH • 
•BLOCK LOCATIONS* 



• BBSBT 0/1* 

• RECORD PTB TO 

• FIBST BECOBD 



• 03 •-> 



*»•* 



*****$3**** •**••* 

• HOVE CURRENT • 
•INPUT RECOttD TO* 
•CURRENT SLOT ON* 

• 0/P BUFFEB • 



PFPUT V 

*****%2* ********* 

• * 

• BESET -A- * 

• BUFFEB PTR TO * 

• FIRST BECOBD ♦ 

• * 
***************** 



---•.CHAIN PTR TO 
*. AHOTREB .* 
•.BLOCK.* 



D5 *. 

► ♦■ 

IS THE 
3- BUFFER 
gflPTT 



BEAD THE 
CHAINED BLOCK 
INTO THE -B- 
BUFFEB < 



*****f ti* «*♦* + *♦ + » 

* PUT THE CHAIN * 

* PTB JUST USED • 
•IHTO AVAILABLE * 

• TABLE FIBST * 

• OPEN ENTRY • 
***************** 



*****Qtl***** + ***1 

* < 

* BESET -B- « 

* BUFFER PTR TO * 

* FIRST RECORD i 



*****fil**L* ******* 

* * 

* INCREHENT 0/P • 

• PTB TO NEXT • 

• SLOT • 



RESET -B- 
8UFFEH PTB TO 
FIRST RECORD 



• HOVE DUNBY * 
— *"FF » BECOBD* 

•INTO -A- BUFFER* 

• * 



****J3********* 

* 
► RETURN • 

i • 

*************** 

TO: CALLEB 



* hove uunnr • 

•■FP " RECORD* 

•IHTO -B- BUFFER* 






•002* 



J5 •. 
i *. 

IS ITER •. 



***** 
•002* 
* J4* 



' 83* 

**** 
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Sh&sdp 

****A1********* 

* i 

* ENTER * 

* < 
*************** 



•****g i********** 



'.\ 



**** 
BR If CBS 

*****m********** 

•HOTS DATA INTO • 
* BOBK Ail El * 



***************** 



*•**•.**********•• 



LIBBABI 
= ALL 



*****C2 ********** 



• SET OP TO PRIHT* 
•>* ALL EBTRIES * 



•PB1BT BOBK AHEA* 

* * 

***************** 



*****C4* ********* 



♦SET OP POB HEXT* 
+DIBECTOBY EBTBT* 



**•*****•**•••*** 



•****Q1********** 

* DETEfiHIBB ir * 

* "S" OE *P W * 
► HODOIBS iILL BE* 

* PBIHTED * 

* * 
*****•»•*»******* 



LOADOB 

»*** 
♦ SflAS 



*21 *•***'***>* 

sfip * 



* BEAD IN PIBST * 

* SECTOB OP * 

* COBTBOL ABBA • 
***************** 



BLKBT * BOTE 1 

*****F1 ********** 

* * BBBTBI * * 

* * (LOAD * * 

* *SISTEH LIST* * 

* * PBOG * + 

its 

******** 

**** 

* * 
« G1 »-> 

* * 
**** 

HD2PBT 

**•**£ 1 ********* 

* 

•HOVE BEADIBG TO 

* BOSK AfiEA 



*****fl1 ********** 

* * 

* * 

* BEIBT BEADIBG * 

* • 

* * 
**»*****•**••*•** 



EBTB 



VALID 



TBS 



1. 



.* 
* 
IPS 



****53 ********* 
* 
BZTOBS *< 

* 
*••••***••***** 

TO: calleh 



HEXBZD 
IBS .** 



* AH * 

* * 
**** 



EHD 

DIBBCTOBT 



***** E 5********** 

* 4 

* EJECT TO BEXT * 

* PAGE * 



***************** 



I**** 
* + 

->* G1 » 



SEE IBM SISTBM/3 

DISK SISTEBS 5TSTEB COBTBOI 

PBOGBAH LOGIC HA NOIL 

SI21-0502. 



*****P4** ******** 



•SET 10B TO BEAD* 
* BEIT SECTOB • 



***************** 



BEADAG 

t*»*<;i|********** 



READ BEIT * 

SECTOB OF + 

DIBBCTOBT + 

* 

**************** 



*+***H4********** 



•SET PQIHTEfi TO 
* PIBST EBTfiY 



***************** 

**•* 
* 
->* DS * 



L 



•flOTB PAGE BEAD 

• IB DOBK ABBA 



*****K-| *••*•****• 

• 

SET-UP TO BOTE • 

DATA IBTO BOSK * 

ABE* * 
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mo dp 

♦***A2********* 

* i 

* EETEB * 

* A 
*************** 



*****B2**«* ****** 

* * 
*SBT DP tO PBIBT* 
*OBXT BBGOESTED * 

* TTPE NTfilES * 

* • 
***************** 



* C2 *-> 

* * 
**** 

10BBD2 

*****C2 ********** 

*BBAD IB 5ECT0B • 

* OP DIB * 



>************• 



LOCOBC 

+**++lll**** ****** 
**** * COSTST 4 CORK * 

» * *SECT, ATTBISUT,* 

* A4 • >* LEYBX, TOT # * 

f * * SBCT * 

**** * * 

***************** 



PRIBT OUT 

COBTBBTBO 

IBPO 



***************** 



C4 *, **J**c5********** 
.* *, * ♦ 
♦COBVBTED 12*. TBS * * 
>*SET CODBTfi = ♦ 



D2 



1ST 
TIHB TBBO 



,* 
TKS 



*****22********** 



* LOAD 6 OPE1 * 
•SISXIST (SSTP1)* 



***************** 



* ?2 *-> 



■THIS TBT 



BO 



****D4********* 
DPD1TE POIHTES 



■>* C2 • 

• * 

**•* 



• *** 
SKPIOD 

*****P2** ******** 

* • 
*PEIIT O0T PAGE * 

• HEADIBG * 



* 


PAGE *. IBS 




0VH?LOif .*- 


----, 


*. 


_* 
*. .* 

*. , * 


J 




* NO 


• *** 




I *•** 

* * 
L->* G2 • 


* • 




* 12 * 




* * 




* * 


**** 




**** 





•****•****•****•* 

***• 

* * 

* 62 *-> 

* * 
**** 

.*, 

G2 *. 

.* *. 

.* DIB *. BO 

*. EBTHX • .*-— 

♦.LIB- TYPE .* 



G3 *. 
* *. 

TTPB - 
T. 'Vf 

{E03) , 
*. .+ 



BET a EH * 

• ************* 



TO: JUAPPB 



EBIIT/EOBCB 
RAIFLIBB PHASB 



TTPE 

**#**B2 ********** 

* • 
•POT TTPB, MAS.B,* 

* DISK i II * 

* OtJTPOT * 



**** 
BO * « 

* >* A4 * 



•*•**£ 2**** ****** 

* COBTBT • TIT * 

* SBCT. IIBIC ED * 

* 4, BID MSP- *- 

* STBT CTBOI 5 * 



Chart HA. Print Object Directory Phase 



7-96 



jiusip 



t*l2********* 
STABT ' 



MSYP1 

STSLIST 



* SODBCB •. 
, LIB BUST . 



***C.l ************ 

* PHIH?'HO * 

> S0DRC1S* LIB 
* BDINC * 

***************** 



HOTB: SBE IBH STSTEH/3 

DISK SISTEHS COBTBOL 
PBOGBlfl LOGIC MVQBL 
5121-0502, 



*****D2 ********** 

• • 
•C0I7MT 5O0RCE • 

* LIB IBFO S * 

• PBIIT * 

♦ * 
***************** 



E2 



.* OBJ LIB *. NO 
'. BUST .* — 



***g 3 **•••**• •«»* 



* PBIKT 'HO OBJ 
-> LIB' HEADIFG 



•*•*•**********•• 



•****P2 ********** 



*C0H7BBT OBJ LIB* 
• IMFO 6 PBIIT * 



*********%•*»*•** 



******** 



•COIVBBT C PBIBT* 
* STSTEH IBFO • 



• ***]{2******«** 
I • 

' HBTOBi * 

F * 

*************** 

TO: C&LLE* 
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MASPT 

• 4 

• ENTBB ' 

• t 



•»0**Q7««««*»*«*« 



SATE *B 
ADDRESS 



• ••• 

• < 

• B3 * 

• < 



DATA •. HO 
RBCORDEB .*--- 



' PHIHT 

ahd pubch 
*. bahtbd . 



.* *■ 
.• IS 
*. FOBCB ONLY 
•. HAHTED 

*. • • 

*- ,* 
♦ YES 



• 03 * 



HOTE *• 

•••••C 3 •••♦•••*•• 

• • HBHTRY • • 

• • (KILT/ • * 

• * SYSLOC TO • ♦ 

• • PROMPT) * • 



• • MODEL 6 OHLX 



SEE IBB 5Y5TEB/3 DISK STSTRHS 
STSTBH CONTROL PROGRAB LOGIC 
BABOAL, SJf 2 1-0^02. 



• D3 •-> 

• *♦• 



ILLSST 



1 



PEBHA1B1T 
BBTKT 



• ♦♦» 

* < 

• PI < 



• ••• 
HABLOP 



• Y»S 



>D2< 



A*************** 



**«*• 22 ********** 

* • 
•PLACE A »T' Ii • 

->* RSTAXH • 

* * 

* « 



NOTB 



I 



HOTS 

■•••*Q 3*** •••*•! 

• *SEBTHT (LD • 
■ * *Ispc1 • 

• * SYSTBB • 

• * PDHCff) * 

• ♦ • 



PI * 
• •** 



OPHPCR Y MOTE 

***■«£ 3 at* ••**«< 

• * HEHTBT • 

• • (SYSTEH • 

• * PUUCH * 

• * BOOt HE) • 



P3 



* BOTB IB SIX 

* BTTBS OP HE 



flAISLB Y HOTE 

* *HBHTRT [GO • 



B * 

* 



BRHCB1 .♦. 

G1 *. 

.♦IS *. 
TES .* SYSLIST • 

, *.ALBD* LOADEP 

*. OB HOT .* 
•.HEED .• 
*. .* 
* BO 





.* PtTHCH *. HO 


• • 


TO 8BR • « 

PBOCEDOBE • « 

HELOAD * < 

SSAIHT1 * 


i • 
► >• 

t » 


• 




*. OK .* 


ft * * 




" • •" 


J »*•« 




TO: SflAlHT 




* TES 






KAIHLIHE 




• *** 1 


» • 






LIBBARIAH 




•001* 


•002* 






PHASE 




• C3 •-> 


* B5* 










* * I 


• •••* 










•»*» i 


02- Eft 










PCBCB1C „•. 


LOOPIN 


SOTB 








G3 *. 




*GU*********i 






• •♦* 


. • *. 


* * 


MKSTBY • J 






• 


.* PBIET *. BO 


• • 


(SYSTEM * < 






G3 *- 


— >*. OHLT .* — 


>* • 


P0HCR * « 






• 


•• . • 


• • 


ROOTISB) • ' 







• ♦ SSBTET 

* *(LOAD M 

* *STSTEB LIST* 

• • PEIHTEBJ ♦ • 



STP* • 



JC^OJ/Aft PRTHLT 



YES .* PBIBT 
♦. EEQOESTED 



•««»•»*•••••*• 



YE5 .* POSCH 

*. OPERATIOH 

*. OB 



BSHCH2 . *. 

J1 *. 
.*IS PCH *. 
.* ALRDT *. TES 

•.L01DED OH HOT-* 

*. HEEDED .* 



* * BEBTBT • • 



• • 

• • 
*••• 



JLOAD 

itf" 



•SSSTSGS TO • 

•pihd sanacB* 

♦LIB BEAD •* 



DISK 
5YSTBB 




YES 

« ■ 

1 


*. .* 

■ HO 

1 




1 

• ■*■ 
• 
* D3 

* 


• ••• 




*■■• 


• • 






• B3 • 

• • 






• ••• 







READON 

•••■■K3aj 

• * 

• * HEH" 

• *(BEftt> 

• • SBC* 

• • 


i nott 
**•**•■■■ 

• * 
raY • • 

HEXT • • 

roR) • • 


•0< 
• 1 


>?■ 
>1* 



Jl. BOD) 
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•001* 
• K3* 



BBAO *. IBS 




OK .* 
*. .* 

*. .♦ 
♦ HO 


T 
***** 

•ooi* 

* &3* 

• * 



*****Bij***aa***** 



SATE RSTDBV 
ADDRESS 



ft*************** 



WAS IT 

EOF 



DSKBBB 



♦♦♦•El ♦♦♦•♦♦♦*» 
■ • 

' EXIT ♦ 

> ♦ 

**•*••••••••*»• 

TO: SSSPEJ 

EIO-OP-JOB 
TBAKSIRST 



♦ * SEHTBY ♦ 
■>* • (POUCH // ♦ 

• *CElfD CURD) * 

* * • 
**************** 



BBEOBT 

*****D2* •*•**•••• 

• • ♦ • 

• * NEITBr * • 
— >* * (HALT/ * • 

• • SlfSLOGl • • 

• • * « 
•••••••a********* 



♦♦♦•E2**"**»**« 
> < 

» EXIT " 

' i 

•*****♦*•••*•*• 
TO: tBAINT 

BAISLISE 



CLOZIT 

*****Cj*«««****« 



* SET Op FOB 
>• ST5LIST 5 
•STSPITIICH CLOSE 



HSBTKT 
(STSTER 
LIST) 



***** 
•001* 
• 53* 



BID OP 
PAGE 



tn 



♦ SPACB TO EXIT 
— >♦ PAGE 



••♦•••••a******** 



E5 



LIBBABIAM 
PHASE 



► PRIBT •. IBS 




♦ 




•• US 


ERROB .♦- — -* 


•" 




HiBOH 


•■ -* ! 




*. 


*. .♦ 






•. .• 


♦* .* V 






*- .♦ t 


♦ 10 ***** 






* 10 ♦♦♦♦• 




♦001* 








♦001* 




* vn* 








♦ M» 




• • 








* * 




• 








* 








, 


**P4********« 








* 


* 




• 


BETUBB ♦ 


♦ 




BETOEH • 


• 


♦ 




• 


»••*•*•*#**••* 


**•******»»**•♦ 


TO: CALLBB 






TO: CALLBS 



HOTE: SEE IBS STSTEB/3 DISK STSTBHS 
SISTER CONTBOL FBOGBAB LOGIC 
BABUAL, 5Y21-0502. 
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tHAOPT 



'AT 



•♦ HODliL S ONLY 

«OT£: SfE IDS 5YSTBS/1 DISK SYSTEMS 
SYSTE11 CONTHOL PHORBA.l LOGIC 
MANUAL. SY21-O502* 



• * 

• SAVS B'TUBK * 

• ADDK5SS • 



• S3 * 



• • 




**** 


1 




* • 

« BU *-'-< 

* * 1 
► ♦** 


E 7 SOTE 




BO DONE V HD/0U/A4 


i* 


•*4*«gU*****"*a*« 


♦ * SENTKY ■ 


• 


♦BEAD * 


• * (LOAD * 


• 


* * 


• 


• BEAD S6CT08S • 


• ■ STSTErt • 


• 


* INTO BUFFEBS * 


• * PUNCH) • 


• 


" FHOH DISK ■ 



PRIST 

AND PUNCH 

WANTSD . 



* NESTRY • 
•(PUNCH COPY* 

• CABD) ■ 



• ••* 
■ 03 ' 



► IS 

PUBCH ONLY 
►. WANTED . 



PISTOL 



•SET DP TO P3INT* 
->• OMLT *- 



■ *•• 

♦ 002* 

* - * 

• ••• 

PLDSON 



• 002« 

• F3* 



Kl 



* Dl < 



PERMANENT -*- 
EMTHT .• 



HABIOP 



• PKINT •. TES 
OILY .* -. 

*• -* I 

♦. .• 

•• .* V 



• *** 

* * 

• D3 • 



HI •. 

.* *, *••* 

• DISK ». TES • ♦ 

SYSTBH • • >* B3 • 

•• .• • * 



• (40 



Jl *. 

,• • . ♦*•• 

DATA •. WO • * 

BRCOB0B8 .* >• HI * 



SOT'! *• 



• • GENTRY * » 
► * f'TALT/ * * 

• * STSLOrS TO * • 

• * pnonPT) • * 



raiNT 

REQUESTED 



NOTE 
***♦*£ 3 ♦ ********* 

• •BEMTBY (ID • • 

• • i*SYS(JS * * 

• ♦ SY5LI5T * * 

• • KODULE) * * 

• • * • 



► LAST < 

TEXT SBCTUB 



HOTLAS 

*«*«*EU«***«*«««« 

• • 
•HOVE III PIKST «• 

• BYTES Ot * 

• STATEMENT • 



OPEN2 V, MOTE 

••«*« F 3«*****»*«4 

• • N ENTRY ♦ * 

• • (SYSLIST • • 

• *PHIBT MARE • • 

• •OT BODULE) * * 



UOTYET V HD/OH/OI 

• #«**pljt««***«»«« 

•EXPAND • 

•EXPAND 60 BYTE • 

• BECOBD TO BO • 

• BYTE BECOBD * 
••••■••••a******* 



HEADER ■. YES 

STATEMENT .• 

BUILT .* I 



► BH 



• OETEHHtNE THE 

• CHECK SUB 

• CHABACTBBS 



•****H !*••**•• *** 



BUILD HEADEB 
STATEHEHT 



^HD^03^A3 



PUTSCH BECOBD 
WTO CARD 



HD/Oft/Al 

*« a **j3« a «*«>***« 

•PRINT • 

• tftINT HEADER • 

• STATEHENT • 



9 HD/0VA1 



* PBINT BECOBD • 



OOPUNC 

•••♦•Kl 
•PUHCH 



hd/03/a: 



•00 2* 

* B1« 

• « 



• PUNCH H 

• CAP 



EADSrt 
D 



•••••D5**«****** 

• SET UP FOB 
>* STATE8ENT OP 

• ALL »LD»S 



• .11 • 

• * 

• + *• 



• *•• 

• « 

• R4 < 

• t 
*** + 
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•001* 


• Jlt» 


* • 


J 


i 

NOON .*. 


m *. 


.* *. 


. • WORKING •. TES 


*. IN LUST .* . 


♦. SECTOH .* 1 


*. .* 


*. .* V 


* no • •*• 




• • 




* G1 * 




• * 




*• *• 


. •_ 


CI •. 


.♦ PAST *. 


. * END OF •. NO 


*.*rnsT miPTEB .* — -. 


*. YET .♦ 1 


*• ■* I 


*. •• k 


• TES **** 




* • 




• 51 • 








• ••• 







••••*Dt*****«***« 



» H.OVP HOPPER 7 • 
♦ TSTO BUFFER 1 * 



* W * 

* * 
**** 



?\TA *. YES 
[;FCOKf>Sit .♦ 



♦003< 
* PI' 



**** 
BNDOP.l T !tOTF 



• 


* 


HEATHY 


* 


• 


• 


t 


(MAPP1 
pKINT/ 


t 


• 


* 


* 


* 


• 






P'J fCfl 






* 


* 


KUUIM') 


* 





i i 



HJTr. 

****Bu*#****« 

* NESTRY 
« (MALT/ 

• srsi,o", TO 



• • •* 

* • 

• < 

• ••• 



*• R05KL * ONLY 

NOTE: SEE IDA SYSTEh/1 DIJK SYSTEMS 
SYSTE'S TOSTROL P305IU1 L05IC 
HANUAL, .SY21-0S()2- 



R1 


*. 






.* LAST *- 






.♦SEC RFHD IN*. YPS 






*. BUPPRB 1 .»----. 




*. SOU .• 






« . , • 






*. . • 








» NO 






HP.ADNX 


' HD/OVAH 






*****F7********** 






•BEAD ♦ 






• BEAD A SfiCTOk • 






* INTO BUPPER 2 • 






» • 






■ «** 






♦ 51 •-> 








• * 








• *** 








LASTSC . •- 






51 ♦. 






. • *. 






.♦ LAST •. VO 








V 




• . .* 


***** 




*. . * 


♦ 001* 




* YES 


* D»* 








• • 








• 






1 






ZEEOCK -•• 




. •, 


HI •„ 




H2 *. 


. * *. 




• * , 


. * STILL ♦. YSS 


. 


• „ TS „ AU 


•. UITHIB .♦ 

•.RllPPRR i . • 


>♦. 


OP 60 BTTE5 
•. iJJJUUS . 


•• .* 




*. .* 


". .* 




*. .♦ 


• BO 




• rv; 








._..] 


OTDCD 


HD/QVA1 






•****j J********** 






•PDKCH * 






»-------- * 






• • 






*PO»CH END CAK9 • 






• * 






♦ ♦•• 






♦ 003* 








• C1 *-> 








• « 








• **s 








PCHBND 1 


> HD/01/A1 






' ****** J********** 






■PUNCH * 






■ • 






• PUNCH // CRtri ♦ 






• CARD * 






• • 






i 

**** 






« * 






* Bl * 






* • 






mi 


*♦ 







TO: EflftPPt 

PfflST/IMWCH 
1AINLINF PII1S2 



♦ 001* 



•POINT TO f.»P i>F« 
* B3C0FD < 



• *• • 
*0OV 

• .11 +-> 



Tl 



H B COFtD 



* y«:« 

I 



,+ »s» *. to 

>•- RECORD ••--- 



50EXPK ? 10/09/51 

•PXfAMb • 

* .._---... * 

•EXPASD *0 PYT3 * 

* i(PCJtiD TO ^0 * 

• BYTF RECOCT • 



AL^OKT » 
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• * 
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• CHECK Sm * 



V HD/M/A* 
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• oni« 

* 31* 



*• -* I 



***• 

* * 

* CJ* 

* * 
***• 
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***** 

•00 2* 



V*W*l 



* PRIRT RECORD 



•****$3**** ****** 

• » 

• SITE flBTDBH • 

• 1DDBESS * 



POUCH 1 



'S' 
RECORD 



TBS 



* 7 

. * ***** 

♦ •002« 

HO • K1» 

• * 



THIS AK •. IBS 
HID CJIHD .• 



• HO 



• CLEAR OOTPUT • 
■>*8B?rEfl ISA LOAD* 

* ADDRESS * 



Dt 



EBD OF *. HO 

BOPPER I .• 



coroax 

•**«*D3 ********** 



POINT XE2 AT 
OOTPOT BOPPER 



• TBS **** 

* * 
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* BOTE BOPPER 2 • 
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•. now 
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• • (POUCH JL • • 
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•004* 
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*. SECTOR READ .*----. 
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♦ ♦ (PSTCH 

■>• * irihlui 
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• • 



bxit 



• ••• 

• < 
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TO: CALL8H 



TYPB3 

i* ♦••m ********** 

♦ BE1D • 

* BEAD IE XT • 

• SECTOR • 



• *•* 

• • 

• JI • 

* • 

• *•• 
RTTPE5 

*****jl********** 

* * 



roi saamr 

MIRLIlB 

LieaAHJIM 

PRASE 



ROTE I 5SB 18(1 SYSTEB/3 DISK STSTEH 
_ "OITROL PRO - " 
ST 21-0502- 



• 8a 



POIRT XR2 At ♦ 
~ D OP RECORD • 



• •••* 
•002* 

* G1« 
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• RNT'B 
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♦. OPERATION -♦ 



%i 



*. .* 
»••»» * YES 

•003* 
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Section 4. Data Area Formats 



The data areas discussed in this section are used by more 
than one phase in the library Maintenance program. 



CONTROL AREA (CAREA) 

This is a 256-byte area immediately following the super- 
visor that is built by the Mainline librarian phase ($MAINT) 
and Allocate Syntax Scan phase (SMAALS). This area is 
used to supply the rest of the Library Maintenance program 
with the parameters necessary for their operation. The 
control area has five sections: 

1 . library control area 

2. From control area (source section) 
3-. From control area (object section) 

4. To control area (source section) 

5. To control area (object section) 
Figure 7-1 7 shows the format of CAREA. 
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Segment 
Name 


Bytes 


Contents 


VERB 


1 


X'80' = Copy 
X'40' * Detete 
X'20' = Allocate 
X'10' = Rename 


FROM- 


1 


X'A8' = F1 
X'B8' = F2 
X'AO' = R1 
X'BO' = R2 
X'4C = Reader 


LIBRARY- 


1 


X'E2' = Source statement 

X'D7' = Procedure 

X'D6' - Executable object code 

X'D9' = Subroutines in nonexecutable object form 

X'FF' = All libraries 

X'FO' * System {system directory print only] 


NAME* 


6 


Module name (6 bytes) or 

Name.ALL (1-5 bytes} (6th byte = length) 
Name (partial name is left adjusted) .X'On' 
(length of partial name is in rightmost byte) 
Example: Name - $$$.ALL = $$$161603 
If Name ■ ALL, X*08' is in the leftmost byte 
If Name = D1R (directory | ( X'W is in the leftmost byte 
If Name = SYS (system), X'02' is in the leftmost byte 


2 
1 
1 
2 


Existing source library size (reallocate) 
Scheduler work area size (reallocate) 
Roll -in/roll-out size (reallocate) 
Existing object library size (reallocate) 


TO- 


1 


X'A8' = F1 
XB8' = F2 
X'AO* - R1 
X'BO' = R2 
X'08' « Print 
X'04' - Punch 
X*02' = Print/Punch 


RETAIN - 


2 


X'D3nn' ■ Level where nn is the level (1-99f specified of the control card 
X'80' = Permanent 
X'00' * Temporary 
X'D9' = Replace 


NEWNAME* 


6 


Module name 


SOURCE 


2 


X'nnnn' = Size j 

X'FF' = No change f . . 

„,__, _ > Leftmost byte 

X'FO = Deallocate ( 

X'F8' = Reallocate \ 


OBJECT 


2 


X'nnnn' = Size ) 

X'FF' * No change [ . . 

vlcftl . M J > Leftmost byte 

X FO = Deallocate 

X*F8* = Reallocate \ 



* Either these six bytes or the six bytes following are in storage. 
Figure 7-17. Library Control Area (Part 1 of 4) 
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Segment 
Name 


Bytes 


Contents 


SYSTEM 


1 


XW = Yes 
X'OO' = No 


WORK 


1 


X'A8' = F1 
X'B8' = F2 

X'AO' « R1 
X'BO' - R2 


LEFROM 





Library From area (source) 


LEFVTO 


2 


VTOC pointer 


LEFDPN 


2 


Directory pointer 


LEFNAS 


2 


Next available library sector 


LEFEOL 


2 


End of library 


LEFDRS 


2 


Number of directory sectors 


LEFPLS 


2 


Number of permanent library sectors 


LEFACT 


2 


Number of active library sectors 


LEFAVL 


2 


Number of available library sectors 


LEFRSS 


12 


Reserved 


LEFOBJ 





Library From area {object) 


LEFDRP 


2 


Directory pointer 


LEFEOD 


2 


End of directory 


LEFSOL 


2 


Start of library 


LEFAEL 


2 


Allocated end of library 


LEFEEL 


2 


Extended end of library 


LEFAPE 


2 


Number of available permanent directories 


LEFATE 


2 


Number of available temporary directories 


LEFFTD 


3 


First temporary directory entry 


LEFNAT 


3 


Next available temporary directory entry 


LEFNAL 


2 


Next available library sector for permanent entries 


LEFALT 


2 


Next available library sector for temporary entries 


LEFASP 


2 


Number of available library sectors for permanent entries 


LEFAST 


2 


Number of available library sectors for temporary entries 


LEFALS 


2 


Number of active library sectors 


LEFAOP 


2 


Number of active O-type permanent sectors 


LEFARP 


2 


Number of active R-type permanent sectors 



Figuie 7-17. Library Control Aiea (Pait 2 of 4) 
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Segment 
Name 


Bytes 


Contents 


LEFRSO 


1 


Reserved 


LEFARR 


2 


Address of roll-in /roll-out 


LEFSRR 


1 


Size of roll-in/roll-out 


LtFASW 


2 


Address of scheduler work area 


LEFSSW 


1 


Size of scheduler work area 


LEFBOL 


2 


Beginning of libraries 


LEFEND 


2 


End of libraries 


LETROM 





Library To area (source) 


LETVTO 


2 


VTOC pointer 


LETDPN 


2 


Directory pointer 


LETNAS 


2 


Next available library sector 


LETEDL 


2 


End of library entries 


LETDRS 


2 


Number of directory entries 


LETPLS 


2 


Number of permanent library sectors 


LETACT 


2 


Number of active library sectors 


LETAVL 


2 


Number of available library sectors 


LETRSS 


12 


Reserved 


LETOBJ 


2 


Library To area (object) 


LETDRP 


2 


Directory pointer 


LETEOD 


2 


End of directory 


LETSOL 


2 


Start of library 


LATAEL 


2 


Allocated end of library 


LETEEL 


2 


Extended end of library 


LETAPE 


2 


Number of available permanent directories 


LETATE 


2 


Number of available temporary directories 


LETFTD 


3 


First temporary directory entry 


LETNAT 


3 


Next available temporary directory entry 


LETNAL 


2 


Next available library sector for permanent entries 


LETALT 


2 


Next available library sector for temporary entries 


LETASP 


2 


Number of avail able library sectors for temporary 



Figure 7-17. Library Control Area (Part 3 of 4) 
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Segment 
Name 


Bytes 


Contents 


LETAST 


2 


Number of available library sectors for temporary entries 


LETALS 


2 


Number of active library sectors 


LETAOP 


2 


Number of active O-type permanent sectors 


LETARP 


2 


Number of active R-type permanent sectors 


LETRSO 


1 


Reserved 


LETARR 


2 


Address of roll-in/roll-out 


LETSRR 


1 


Size of roll-in/roH-out 


LETASW 


2 


Address of scheduler work area 


LETSSW 


1 


Size of scheduler work area 


LETBOL 


2 


Beginning of libraries 


LETEND 


2 


End of library 


LEDIRE 


3 


Cylinder, sector, and displacement of directory entry 


LEFIND"* 


2 


Address of Find phase 


LEDENT** 


21 


Directory entry 


LEFSIZ** 


2 


Size of least fit area 


LESDEN"* 


13 


Source directory entry to copy 


LESADR**** 


2 


Address of source on work pack 


LEDADR**** 


2 


Address of object on work pack 



** Usedby $MAOLH 
••» Used by $MACSL 
**** Usedby$MAAMW 



Figure 7-17. Library Control Area (Part 4 of 4) 
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OBJECT LIBRARY DIRECTORY 



SOURCE LIBRARY DIRECTORY 



The directory contains entries that point to each object 
program or routine in the object library. Each entry in the 
directory is 21 bytes in length. Each sector of the directory 
contains 12 entries and four unused bytes. Figure 7-18 
shows the format of each directory entry. 



The directory contains entries that point to each source 
program or procedure in the source library. Each entry in 
the directory is 13 bytes in length. Each sector of the 
directory contains 19 entries and 9 bytes that point to the 
cylinder and sector of the next sector in the directory. 
Figure 7-19 shows the format of each directory entry. 



Bytes 


Contents 


Description 


1 


Type 


Entry type (0 or R) 


6 


Name 


Name of the object program or 
routine 


2 


Disk address 


Cylinder/sector address of the 
library entry 


1 


Number of text 


Type — number of text sectors 




sectors 


in the library entry 
Type R — not used 


2 


Link edit 


Type — storage address to which 




address 


the library entry has been 
link edited 
Type R — not used 


1 


Displacement 


Type O - displacement (in bytes! 




of relocation 


of the relocation dir- 




directory 


ectory in the last sector 
of text 
Type R - not used 


2 


Starting controf 


Type - storage address at which 




address 


program execution will 
begin 
Type R - not used 


1 


Storage size 


Amount of storage (in sectors) 
required to run the program 


2 


Attributes 


Byte 1,Bit 0*Temporary entry 
1 =Permenant entry 
Bit 1 1=lnquiry 
Bit 2 1=lnquiry evoking 
Bit 3 1=Must run dedicated 
Bit 4 1= Requires source 






information 
Bit 5 1 -Deferred mounting 

allowed 
Bit 6 1=No relocation 

directories 
Bit 7 1-PTF applied 
Byte 2 Reserved 


1 


Level 


Version and modification level of 
this entry 


2 


TotaJ number 


TotaJ number of sectors in the 




of sectors 


library entry 



Bytes 


Contents 


Description 


1 


Type 


Indicates whether entry is 
source program or procedure 


6 


Name 


Name of the source program or 
procedure 


2 


Address of first 
sector in chain 


Cylinder/sector address of first 

sector in chain 


2 


Address of last 
sector in chain 


Cylinder/sector address of 
last sector in chain 


2 


Number of sectors 
(attribute) 


Number of sectors in chain. 
The high order bit indicates: 

= Permanent entry 

1 ■ Temporary entry 



Figure 7-19. Source Library Directory 



Figure 7-18. Object Library Directory 
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Disk Initialization Program 



Appendix A. Directory 



Phase 
Name 



Descriptive 
Name 



Entry 
Point 



Synopsis 



$INIT 



Root phase 



IROOT 



SINIT1 Control Statement IDSYN 

Analysis phase 



Loads phases in storage; maintains table of constants. 

Reads control statements; converts control statements 
from decimal to hexadecimal; checks control state- 
ments for validity and sequence; builds two parameter 
tables. 



S1NIT2 Mainline phase 



SINMSG Print phase 



IMAIN 



$INSUR Surface Analysis SURFAN 

phase 



ALMSG 



Obtains parameter table; reads volume label; checks 
for initialization validity ; initializes alternate track 
information; determines program level; passes para- 
meter to Surface Analysis phase; saves and restores 
program protection; assigns alternate tracks; verifies 
sector ID fields; writes and updates volume label. 

Writes and verifies sector addresses; provides error 
recovery procedure; updates alternate track informa- 
tion; passes return code to Mainline phase. 

Log results of alternate track assignment; prints ad- 
dresses of tracks; logs results of initialization. 



Alternate Track Assignment Program 



Phase 


Descriptive 


Entry 


Name 


Name 


Point 


SALT 


Root phase 


AROOT 


SALT01 


Control Statement 
Analysis phase 


ASASYN 



$ALT02 Mainline phase 



AMAIN 



Synopsis 



Loads phases; maintains constants. 

Reads and logs control statements; checks state- 
ments for validity and sequence; converts state- 
ment operands from decimal to hexadecimal; 
builds table of constants and passes it to Root 
phase. 

Reads volume label; performs conditional assign- 
ment, unconditional assignment, or unconditional 
cancel of prior assignment. 
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Phase 
Name 


Descriptive 
Name 


SALT03 


Data Transfer 
phase 


SALSUR 


Surface Analysis 
phase 



Entry 
Point 

ADATX 



SURFAN 



SALMSG Print phase 



ALMSG 



Synopsis 



Transfers data from primary to secondary track; 
returns data to primary track; passes table of mes- 
sages to Print phase. 

Writes and verifies sector addresses and test patterns; 
provides error recovery procedure; indicates defec- 
tive track; performs surface analysis; writes ID field 
on defective track to show assignment; passes return 
code to Mainline phase. 

Prints results of successful assignment and track ad- 
dresses; prints results of unconditional assignment, 
prints results of unconditional cancel of prior assign- 
ment. 



SALSEP Sector Print phase ALSEP 



Prints address of sector in error and data on that 
sector. 



Alternate Track Rebuild Program 



Phase 
Name 



Descriptive 
Name 



Entry 
Point 



Synopsis 



$BUILD Mainline phase 



RGOTO Initializes constants; builds IOB; reads control 

statements and checks for sequence; determines if 
statement is control or data. 



File and Volume Label Display Program 



Phase 
Name 



Descriptive 
Name 



Entry 
Point 



Synopsis 



$LABEL 



Root and Syntax 
Scan phase 



SLABL1 Mainline phase 



FILSTN Reads control statements; checks statement validity 

and sequence; prints statements if logging device is 
on; builds and passes table of constants; loads and 
passes control to Mainline phase. 

DISPLY Reads volume label; converts and displays volume 

label or file information. 
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File Delete Program 



Phase 

Name 



Descriptive 
Name 



SDELET Root phase 



Entry 
Point 

FLBRS 



SDELT1 Control Statement FILSYN 

Analysis phase 



Synopsis 



Provides save area for keyword parameters; loads 
and passes control to the Control Statement Analysis 
and Mainline phases. 

Reads control statements and checks their validity; 
logs statements if device is on; builds keyword para- 
meter table. 



SDELT2 Mainline phase 



FDEL 



If control statement reads LABEL- VTOC, all format 
Is with part retain type are read and given an S retain 
type and format Is are written in scheduler work area; 
if statement does not read LABEL-VTOC, specified 
format Is are read and given S retain type and for- 
mat Is are written in scheduler work area. 



Disk Copy/Dump Program 



Phase 


Descriptive 


Entry 


Name 


Name 


Point 


$COPY 


Root phase 


CROOT 


$COSYN 


Control Statement 
Analysis phase 


CSBEG 



SCOPIN Main Data Transfer COPINT 

phase (copy pack) 



SCOPIM Intermediate phase COPIM 

(copy pack) 



SCOFIN Initialization phase COF1 

(copy pack) 



SCONDP Simple Copy Files CONDP 
phase (copy files) 

SCOREC Copy Non-Indexed COREC 
Files phase (copy 
files) 



Synopsis 



Calls phases into storage; maintains table of constants. 

Reads control statements and checks for errors and 
sequence; builds table of constants; passes constants to 
Root phase. 

Determines I/O area size and pack size; changes last 
length of IPL label to equal R or F; copies tracks 
and 1 ; determines if output volume has active files. 
Copies data from cylinder 4 to upper limit; reads disk 
pack by half track, full track, or full cylinder. 

Loads $COPIN to copy cylinder 0; copies remainder 
of pack; gets space on the fixed disk on drive on (Fl) 
to use as temporary file; halts and issues messages. 

Determines type of file requested and storage size of 
program; gets record length and passes it to Root 
phase. 

Copies an indexed sequential or consecutive file that 
does not need printing, deleting or reorganizing. 

Copies a consecutive or direct file; deletes a specified 
record; prints a specified. record. 
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Phase 
Name 


Descriptive 
Name 


Entry 
Point 


SCOCIO 


Non-Reorganization 
Indexed Sequential 
Files phase (copy 
files) 


COINDX 


SCOREI 


Reorganization 
Indexed Sequential 
Files phase (copy 
files) 


COINDX 


SCOFIM 


Intermediate 
Control phase 
(copy files) 


CFBEG 


SCOIRY 


Intermediate 
Reorganization 
phase (copy files) 


CFBEG 


SCOIRN 


Intermediate 
Non-Reorganization 
phase (copy file) 


CFBEG 


SCONOI 


Intermediate 
Consecutive phase 
(copy files) 


CFBEG 


SCOPRL Print phase 
(Disk System) (copy files) 
SCOPRM 
(Model 6) 


COPRT 


SCOMVD 


Copy Multi- Volume 
Direct FUes phase 


COREC 


SCOIMD 


Intermediate 
Multi-Volume 
Direct phase 


CFBEG 


SCOEOJ 


End of Job 
phase 


COEOJ 



Synopsis 



Copies an indexed sequential file; prevents reorgan- 
ization; allows deleting and printing records; loads 
Print phase. 



Copies an indexed sequential file; allows reorgan- 
izing, deleting, and printing records. 



Receives and opens DTFs with correct attributes; 
determines if enough storage is allowed; preallocates 
space on Fl and opens FI DTF as consecutive output. 

Copies and reorganizes index sequential files from a 
pack on the removable disk on drive one (Rl) to Rl ; 
allows deleting from output file; allows printing with 
output on disk. 

Copies an indexed sequential file Rl to Rl ; allows 
records to be deleted from output file. 



Copies a non-indexed file Rl to Rl ; allows deleting 
from the output file and printing with output on disk. 



Prints record with its key number; indicates if record 
is deleted; prints a scale on the page; prints record 
count. 



Copies a multi-volume direct file and allows printing. 



Copies multi-volume direct files and allows printing. 



Puts the correct volume sequence number and file 
type in the output if copying only one volume of a 
multi-volume file. 
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Phase 
Name 



Descriptive 
Name 



Entry 
Point 



Synopsis 



Library Maintenance Program 



Phase 

Name 


Descriptive 
Name 


Entry 
Point 


SMAINT 


Mainline Librarian 
phase 


SMAINT 


SMAALS 


Allocate Syntax 
Scan phase 


SMAALS 


SMAAMN 


Allocate 
Mainline phase 


SMAAMN 


SMAAOL 


Allocate Object 
Library phase 


SMAAOL 


$MAASL 


Allocate Source 
library phase 


SMAASL 


$MATAD 


Track Allocate/ 
Deallocate phase 


SMATAD 


SMAAMW 


Reallocate 
Mainline phase 


SMAAMW 


SMAFND 


Find phase 


SMAFND 


SMAACO 


Copy Object 
library phase 


SMAACO 


SMAACS 


Copy Source 
library phase 


SMAACS 


SMARCO 


Copy Work Pack 
to Object library 
phase 


SMARCO 


SMARCS 


Copy Work Pack 
to Source Library 
phase 


SMARCS 


$MAREM 


Rename Control 
Statement 
Processor phase 


SMAREM 


SMADEM 


Delete Mainline 
phase 


SMADEM 



Synopsis 



Reads control statements; builds control areas; 
passes control to the appropriate control statement 
processor. 

Checks the parameters on the // ALLOCATE control 
statement and determines if the specified functions 
can be performed. 

Passes control to routines that allocate libraries; 
performs deallocation functions. 

Builds the object section of the system directory; 
allocates a scheduler work area. 

Builds the source section of the system directory. 



Updates the volume label. 



Reallocates the source/object libraries by calling 
the appropriate routines. 

Locates a specified routine in either the source or 
object library. 

Copies the object library to the specified work pack. 



Copies the source library to the specified work pack. 



Copies the object library from the work pack to the 
reallocated object library. 



Copies the source library from the work pack to the 
reallocated source library. 



Replaces specified name with new name; deletes 
specified name. 



Deletes the specified source or object library entries; 
updates the system directory. 
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Phase 
Name 


Descriptive 
Name 


Entry 
Point 


SMACRS 


Copy Reader to 
Source Library 
phase 


SMACRS 


SMADRV 


Copy Object 
library — Disk 
to Disk phase 


SMADRV 


SMACSY 


Copy System 
Mainline phase 


SMACSY 


SMAOLH 


Object Library 
Handler phase 


$MAOLH 


SMALOG 


Update PTF Log 
Sector phase 


SMALOG 


SMACRR 


Copy Reader to 
Object Library 
(R. Entries) phase 


SMACRR 


SMAEXE 


Readjust Extended 

End of Object 
Library phase 


SMAEXE 


SMACRO 


Copy Reader to 
Object Library 
(0. Entries) phase 


SMACRO 


SMACSL 


Copy Source 
Library — Disk 
to Disk phase 


SMACSL 


SMAPFM 


Print/Punch Source 
Library phase 


SMAPPM 


SMASRT 


Directory Sort 
phase 


SMASRT 


SMASDP 


Print Source 
Directory phase 


SMASDP 


SMAODP 


Print Object 
Directory phase 


SMAODP 



Synopsis 



Determines if the requested name is unique to the source 
library; determines if there is enough space for the 
program to be copied; copies the program from the 
reader. 

Copies specified library on the specified disk. 



Copies the following from one system disk pack to 
another: (1 ) Initial Program Load (IPL) Bootstrap 
program, (2) system configuration record, and (3) 
Nucleus Initialization program (NIP), 

Loads an entry into the object library from either 
the reader or from another object library; checks for 
available space; dynamically allocates space when 
needed. 

Updates PTF log sector after an IBM program is copied 
from disk to disk to reflect current PTFs against that 
program. 

Builds an R. entry in the object library. 



Determines the number of tracks that are needed in 
addition to the allocated number of tracks in order 
to contain the object library; updates the volume label, 
format 5 directory, and system directory. 

Builds an 0. entry in the object library. 



Copies the specified source library from one disk to 
another. 



Calls other phases to print and/or punch libraries 
and/or directories. 

Sorts the specified directory before it is printed. 



Prints the contents of the source library. 



Prints the contents of the object library. 



A^ 



Phase 
Name 


Descriptive 
Name 


Entry 
Point 


Synopsis 


SMASYP 


Print System 
Directory phase 


SMASYP 


Prints the contents of the system directory. 


SMASPT 


Print/Punch Source 
Library phase 


SMASPT 


Prints and/or punches modules from the source 
library. 


$MAOPT 


Print/Punch Object 
library phase 


SMAOPT 


Prints and/or punches modules from the object 
library. 
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Appendix B. Flowcharting Techniques 



Flowcharts in this PLM are identified in this manner: 



The flowcharting symbols used are: 



A flowchart that consists of only one page is identified 
with a chart ID of, for example, AA. 



A flowchart that consists of multiple pages with a 
chart ID of AA is identified as: first page = AA-01, 
second page = AA-02, and so on. 



A sequence of related flowcharts are identified as: 
first flowchart = AA, second flowchart = AB, third 
flowchart = AC, and so on. 



• A sequence of flowcharts, each flowchart having 
multiple pages, is identified as: first flowchart with 
multiple pages = AA-01, AA-02, and so on; second 
flowchart = AB-01 , AB-02, and so on; continue through 
the sequence of flowcharts. 



Processing 



Modification 



Comment 



u 



Off-page Connector 




Decision 



Input/Output 



(_J 



Entry /Terminal 



o 



On-page Connector 



Striped Processing 



Predefined Processing 
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Most of the symbols are self-explanatory, but some need 
more explanation. 

1 . The striped processing block indicates the entry of 
routine flowcharted in this PLM. 



CH/PG/BK 




Off-page connectors are used to reference between 
different pages of the same chart ID. Off-page con- 
nectors leaving a page contain the page number and 
block number of their destination. 

Example: 



V 



Off-page connectors entering a page contain the page 
number and block number of their origin. If the 
entry point referenced by the off-page connector is 
referenced from more than one origin, all origins are 
given. The origins are listed in alphameric order with 
the last reference contained within the block. 



CH/PG/BK indicates the chart ID, page, and block 
identification of the flowcharted routine. 



Example: 

02-F4 
03-F4 
04-F4 



Q2-B2 I 03 \ 
03*04 | F 5 / 



The predefined processing block indicates a routine 
flowcharted and/or described in another PLM. 



On-page connectors contain the location of a block 
on the same page. On-page connectors always con- 
tain the location of the destination block. 




SEE NOTE 



The label in the upper lefthand corner just above the 
entry symbol is the entry point in the listing for that 
part of the program. 

Example: 
$DSAAQ 



Note: See "PLM title and form number' 



f ENTRY J 



Br2 



Index 



Alternate Track Assignment 

$$RDS1 (see Keyword Syntax Scan routine) 

$ALT (see Root phase) 

$ALT01 (see Control Statement Analysis phase) 

$ALT02 (see Mainline phase) 

SALT03 (see Data Transfer phase) 

SALMSG (see Print phase) 

$ALSUR (see Surface Analysis phase) 

AATCDE track activity code 

contents of 2-28 

use of 2-11 
ABER table 

description of 2-26 

use of 2-1 0,2-11 
ABFAB data buffer address area 2-28 
AIOB control block 

contents of 2-25 

use of 2-5 
ALTIN table 

contents of 2-27 

use of 2-5 
AMSGT table 

contents of 2-28 

use of 2-5 
AMTAB table 2-26 
ARCDE return code 

contents of 2-29 

use of 2-11 
ARDTC return code 

contents of 2-29 

use of 2-6,2-11 
ASCTAB table 2-26 
ASCTBK table 

description of 2-26 

use of 2-5,2-10 
ASIOAR buffer 

contents of 2-28 

use of 2-5 
ASLTA table 2-27 
ASOTLY table 2-27 
ASSC table 

contents of 2*26 

use of 2-5 
ASSCOT buffer 

contents of 2-28 

use of 2-5 
assignment, definition 

conditional 2-3 

unconditional 2-3 

unconditional cancel of prior assignment 2-3 
ASSMG table 2-27 
ASTAB table 

contents of 2-28 

use of 2-5 
ATBLE table 

contents of 2-27 

use of 2-5 



ATPDL table 

contents of 2-28 
use of 2-5 

buffers, format of 2-28 

cancel of prior assignment, unconditional 

description of 2-3 

operation of 2-6 
conditional assignment 

description of 2-3 

operation of 2-5 
control blocks, format of 2-25 
Control Statement Analysis phase ($ALT01) 

flowchart 2-14 

functions 2-10 

use of 2-5 

data area formats 2-25 

Data Transfer phase (SALT03) 

flowchart 2-19 

functions 2-12 

use of 2-5,2-6 
defective track, possible actions to take 2-6 
directory A-l 

EOJ transient 2-6 
error recovery procedure 

during data transfer 2-6 

during surface analysis 2-12 

FCS work area 2-29 
flowcharting techniques B-l 

Halt/Syslog transient 2-6 

ID fields 

setting 2-5 

use of 2-3 

writing 2-5,2-12 
introduction 2-3 
IOADDR buffer 

contents of 2-28 

use of 2-5,2-13 

job scheduler work area, use of 2-10 

Keyword Syntax Scan routine ($$RDS1), use of 2-5 

Mainline phase (SALT02) 
flowchart 2-16 
functions 2-11 
use of 2-5,2-6 

operation diagram 2-7 

Print phase (SALMSG) 
flowchart 2-23 
function 2-13 
use of 2-5,2-11 



Index X-l 



PWKlwoikaiea 2-29 

RIDFCS work area 2-29 
Root phase ($ALT) 

functions 2-10 

use of 2-5, 2-6 

Sector Print phase (SAL SEP) 

flowchart 2-24 

functions 2-13 

use of 2-5,2-12 
SlOB control block 

contents of 2-25 

use of 2-5 
storage map, alternate track assignment 2-9 
Surface Analysis phase ($ALSUR) 

flowchart 2-21 

functions 2-12 

use of 2-5,2-6 
SYSIN.useof 2-10 
system requirements 2-3 

tables, format of 2-26 

unconditional assignment 

introduction 2-3 

operation of 2-5 
unconditional cancel of prior assignment 

introduction 2-3 

operation of 2-6 

volume label 2-3,2-11 
work areas, format of 2-29 



Alternate Track Rebuild 

$$RDS1 (see Keyword Syntax Scan routine) 
SBU1LD (see Mainline phase) 
// PATCH control statement 3-3 
// REBUILD control statement 3-3 

buffers, format of 3-8 

control blocks, format of 3-7 
control statements 3-5 

data area formats 3-7 
data statement 3-5 
directory A-2 

EOJ transient, use of 3-5 

flowcharting techniques B-l 

Halt/Syslog transient, use of 3-5 

introduction 3-3 

Keyword Syntax Scan routine ($$RDS1), use of 3-5 

Mainline phase ($ BUILD) 
flowchart 3-6 
functions 3-5 



3-8 



RA conversion table 3-8 
RADDS address table 

contents of 3-8 

use of 3-5 
RBUFFO disk input/output area 
RCARD input buffer 3-8 
RIOB control block 

contents of 3-7 

use of 3-5 
RSYOB output buffer 3-8 
RTAB parameter table 

contents of 3-8 

use of 3-5 

storage map 3-5 
system requirements 3-3 

tables, format of 3-8 



Disk Copy/Dump 

$$RDS1 (see Keyword Syntax Scan routine) 

$COCIO (see Non-Reorganization Indexed Sequential Files phase) 

$COEOJ (see End-of-Job phase) 

$COFIM (see Intermediate Control phase) 

$COFIN (see Initialization phase) 

$COIMD (see Intermediate Multi-Volume Direct phase) 

$COIRN (see Intermediate Non-Reorganization phase) 

SCOIRY (see Intermediate Reorganization phase) 

SCOMVD (see Copy Multi- Volume Direct Files phase) 

$CONDP (see Simple Copy Files phase) 

SCOPIM (see Intermediate phase) 

SCOP1N (see Main Data Transfer phase) 

SCOPRL (see Print phase) 

SCOPRM (see Print phase) 

$COPY (see Root phase) 

$COREC (see Copy Non-Indexed Files phase) 

SCO RE I (see Reorganization Indexed Sequential Files phase) 

SCOSYN (see Control Statement Analysis phase) 

CDCTL table 6-50 
CDFIOB control block 6-5 
CDIBUF I/O buffer 6-53 
CDIIOB control block 6-50 
CDOIOB control block 6-50 
CDPIBF I/O buffer 6-51 
CDPIOB control block 6-50 
CDPMBF I/O buffer 6-51 
CERRTB table 6-51 
CFERR table 6-52 
CFIN control block 6-51 
CFIOB control block 6-5 1 
CFOUT control block 6-51 
CFVLBF buffer 6-54 
CF1DTF control block 6-53 
CHTTB table 6-53 
CNOTAB table 6-54 
COIEND buffer 6-54 
common data areas 6-47 
common functions 

general diagram 6-6 

operation of 6-5 

phase descriptions 6-1 1 
CONEND record area 6-54 



X-2 



Control Statement Analysis phase ($COSYN) 

flowchart 6-22 

functions 6-11 

use of 6-5 
COPHLT table 6-50 
copy file data areas 6-5 1 
copy files function 

operation diagram 6-9 

operation of 6-8 

phase descriptions 6-14 

storage maps 6-15 
Copy Multi-Volume Direct Files phase ($COMVD) 

flowchart 6-43 

functions 6-20 

operation of 6-8 
Copy Non-Indexed Files phase ($COREC) 

flowchart 6-32 

functions 6-16 

operation of 6-8 
copy pack data areas 6-50 
copy pack function 

operation diagram 6-7 

operation of 6-5 

phase description 6-12 

storage maps 6-12 
CORHLT table 6-52 
CPBUF buffer 6-54 
CPLIST table 6-54 
CPWRK conversion area 6-54 
CRIHLT table 6-53 
CSCARD input area 

description of 6-49 

use of 6-5 
CSCTL table 

contents of 6-47 

use of 6-5 
CSCTLP table 

contents of 6-48 

use of 6-5 
CSERRB table 

contents of 6-48 

use of 6-5 
CSFILT table 

contents of 6-49 

use of 6-5 
CSPKTL table 

contents of 6-49 

use of 6-5 
CSSYNT table 

contents of 6-48 

use of 6-5 
CSSYOUT output buffer 6-49 
CSYSIN table 6-49 

data area fonnats 6-47 

common 6-47 

copy file 6-5 1 

copy pack 6-50 
directory A-3 

End-of-Job phase ($COEOJ) 
flowchart 6-45 
functions 6-21 

flowcharting techniques B-l 



Initialization phase ($COFIN) 

flowchart 6-30 

functions 6-14 
Intermediate Consecutive phase ($CONO!) 

flowchart 6-38 

functions 6-19 

operation of 6-8 
Intermediate Control phase ($COFIM) 

flowchart 6-36 

functions 6-18 

operation of 6-8 
Intermediate Multi-Volume Direct phase ($COIMD) 

flowchart 6-38 

function 6-38 

operation of 6-8 
Intermediate Non-Reorganization phase (SCOIRN) 

flowchart 6-38 

functions 6-19 

operation of 6-8 
Intermediate phase ($COPIM) 

flowchart 6-28 

functions 6-12 

operation of 6-5 
Intermediate Reorganization phase ($COIRY) 

flowchart 6-38 

functions 6-18 

operation of 6-5 
introduction 6-3 

Keyword Syntax Scan routine ($$RDS1), use of 6-5 

Main Data Transfer phase ($COPlN) 

flowchart 6-26 

function 6-12 

operation of 6-5 
method of operation 6-5 

Non-Reorganization Indexed Sequential Files phase ($COCIO) 
flowchart 6-34 
functions 6-17 
operation of 6-8 

operation diagram 
COPY FILE 6-9 
COPY PACK 6-7 

Print phase ($COPRL-Disk System; $COPRM-Model 6) 
flowchart 6-41 
functions 6-20 

Reorganization Indexed Sequential Files phase ($COREl) 

flowchart 6-34 

functions 6-1 7 

operation of 6-8 
Root phase ($COPY) 

functions 6-1 1 

operation of 6-5 

Simple Copy Files pnase ($CONDP) 

flowchart 6-31 

functions 6-14 

operation of 6-8 
storage maps 

copy file function 6-15 

copy pack function 6-12 
system requirements 6-3 
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Disk Initialization 

$$RDS1 (see Keyword Syntax Scan routine) 

SINIT (see Root phase) 

SINITl (see Control Statement Analysis phase) 

$INIT2 (see Mainline phase) 

$INMSG (see Print phase) 

$INSUR (see Surface Analysis phase) 

// END control statement 1-9 

// UIN control statement 1-3 

checked 1-8 
// VOL control statement 1-9 

ALTIN table 

contents of 1-25 
initialization of 1-9 
updating of 1-10 
use of 1-5 

buffers, format of 1-25 

capacity 

cylinder 1-3 

disk 1-3 

pack 1-9 
clear 1-3 

control blocks, format of 1-21 
Control Statement Analysis phase (SINITl) 

flowchart 1-12 

functions 1-8 

use of 1-5 
cylinder capacity 1-3 



data area formats 
directory A-l 
disk capacity 1-3 



1-21 



EOJ transient, use of 1-5, 1-10 
error recovery procedure 1-5 

FCS work area, description of 

flowcharting techniques B-l 

halts, PID keyword 1-8 
Halt/Sy slog transient 1-5 

IBF AD write buffer address area 

description of 1-25 

use of 1-5 
ICSTL table 

contents of 

use of 1-5 
ID field format 
IERTAB table 
IMSGT table 

description of 

use of 1-5 
introduction 1-3 
IOADDR write buffer 

description of 1-25 

use of 1-5 
IOB control block 

contents of 1-21 

use of 1-5 



1-26 



1-22 

1-3 

1-24 



1-24 



IOBV control block 

contents of 1-21 

use of 1-5 
IOSV save area 

contents of 1-26 

use of 1-5 
IPL sectors 1-10 
IRCDE return code 

contents of 1-26 

use of 1-5 
ISCTBK table 

contents of 1-22 

use of 1-5 
ECTLO table 

contents of 1-24 

use of 1-5 
1SIO read buffer 

description of 1-25 

use of 1-8 
ISMGT table 1-10 
ISSCAN table 

contents of 1-23 

use of 1-5 
1SSCOT output buffer 

description of 1-25 

use of 1-5 
ISSYSM table 

contents of 1-24 

use of 1-5 
ISUNTB table 

contents of 1-23 

use of 1-5 
ISVBG table 

contents of 1-22 

use of 1-5 
ISVLTB table 

contents of 1-23 

use of 1-5 

Keyword Syntax Scan routine ($$RDS1), use of 1-5 

Mainline phase (INIT2) 

flowchart 1-14 

functions 1-9 

use of 1-5 
method of operation 1-5 



OBR/SBR sectors 
operation diagram 



1-3, 1-9 
1-6 



pack capacity 1-9 
PID keyword, halts 1-8 
primary Initialization 1-3 
Print phase (SINMSG) 

flowchart 1-20 

functions 1-11 

use of 1-5 
program portection sectors 1-3, 1-9 

RIDFCS work area 1-26 
Root phase ($IN1T) 

functions 1-8 

use of 1-5 



X-4 



secondary initialization 1-3 

SIOB control block 1-21 

storage map, disk initialization program 1-7 

Surface Analysis phase ($INSUR) 

flowchart 1-18 

functions 1-10 

use of 1-5 
system requirements 1-3 

tables, format of 1-22 
TBLE table 

contents of 1-25 

use of 1-5 

VOLS write buffer 

contents of 1-25 

use of 1-5 
volume label 

use of 1-9 
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FSSYSM table 5-18 
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File Delete 
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flowchart 5-10 
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FDLIST table 4-15 
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$$OXRF (see Transient Resolver phase) 
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$$SYSP (see Source Put phase) 

$$TMEJ (see End of Job Deallocation phase) 
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Copy Work Pack to Source Library phase ($MARCS) 
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